gistfile1.txt

┌─[tadzik@yavin4]─[~] 
└─[%]─> cat dupa.pl 
=begin pod

=head1 Some heading

=head2 Another shit

=for table
    foo     kbkbar
    bla     ahaha
    fos a  ble ple

    code goes hier

=end pod

#bla bla

say pod-gist($=pod[0]);
┌─[tadzik@yavin4]─[~] 
└─[%]─> perl6 dupa.pl 
Pod::Block::Named("name" => "pod").hash
  Pod::Heading("level" => "1").hash
    Pod::Block::Para
      Some heading
  Pod::Heading("level" => "2").hash
    Pod::Block::Para
      Another shit
  Pod::Block::Table
    foo kbkbar
    bla ahaha
    fos a ble ple
  Pod::Block::Code
    code goes hier

Pod::Block::Named("name" => "pod").hash
Pod::Heading("level" => "1").hash
Pod::Block::Para
Some heading
Pod::Heading("level" => "2").hash
Pod::Block::Para
Another shit
Pod::Block::Table
("foo", "kbkbar")
("bla", "ahaha")
("fos a", "ble ple")
Pod::Block::Code
code goes hier