p6.p6

$ cat pod.pm6 
sub MAIN('meows') {}

=begin pod

Moo mooo

=end pod

$ cat foo.p6 

my $p := Promise.new;
my $v := $p.vow;
start 'pod.pm6'.IO.slurp.&[~](｢; INIT {$v.keep: $=pod; sleep}｣).EVAL;
say await $p;

say "Our pod:";
say $=pod;


=begin pod

Meow moew.

=end pod

$ perl6 foo.p6 
[Pod::Block::Named{:name("pod")}
  Pod::Block::Para
    Moo mooo
]
Our pod:
[Pod::Block::Named{:name("pod")}
  Pod::Block::Para
    Meow moew.
]