Fun with $POD

gistfile1.txt

┌─[tadzik@yavin4]─[~/src/nom] (podparser)
└─[%]─> cat foo.pl 
use v6;

=begin pod
foo bar asd
=end pod

=begin otherpod
nom nom nom
=end otherpod

say $POD.perl;
say $POD[0].name.perl;
say $POD[0].content.perl;
say $POD[1].name.perl;
say $POD[1].content.perl;
┌─[tadzik@yavin4]─[~/src/nom] (podparser)
└─[%]─> ./perl6 foo.pl 
Array.new(Pod__Block__Named<28720320>, Pod__Block__Named<82308800>)
"pod"
Array.new("foo bar asd\n")
"otherpod"
Array.new("nom nom nom\n")