Hello PPI for POD

ppi_for_pod.pl

use strict;
use warnings;
use utf8;

=DESCRIPTION

あいうえお

=cut

use Data::Dumper;
use PPI::Document;
my $Document = PPI::Document->new(__FILE__);
my $nodes = $Document->find('PPI::Token::Pod');

=head1 Dumper

ほげ

=over

=item * アイテム

=back

=cut

print Dumper $nodes;