—

              
#!/usr/bin/perl
use Pod::Parse;
$x = new Pod::Parse;
#@r = $x->parse_from_file_by_name("tp2");
@r = $x->parse_from_file_by_name("newfunc.pod",sub {print Pod::Parse::dumpout(\@_),"\n"});
#@r = $x->parse_from_file_by_name("pod/perlrun.pod");
#while(@i=splice(@r,0,6)) {
#       print Pod::Parse::dumpout(\@i),"\n";
#}
#print Pod::Parse::dumpout(\@r),"\n";
HideShow 52 lines of Pod
=without auto-indexing
=with foobar
=with auto-indexing of 3
=head1 TEST
  
This is a test.
=subheading
=index test1
test2
test3
       test4
       test/5
  
This is another test
This paragraph mentions the foo() function, the bar(2) manpage, and the $bletch variable.
=begin list
=item bla
=item B<1>I<2>
=item X<B<1>I<2>>
=item X<B<1>/I<2>>
=item X<B<1>I<2>;12>
=item X<B<1>I<2>;number/12>
=item X<B<1;2>;12>
foo
=end list
  
=cut
=begin comment
=begin pod test2
=end pod test2
=end comment