You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
Pod below __END__ is not recognized if a __DATA__ section is present.
See #15 for additional info.
use strict;
use warnings;
use feature 'say';
use PPI::Document;
=head1 Test
This is a piece of POD.
=head2 Sub
This is also a piece of POD.
=cut
my $content = '';
{
local $/;
open my $fh, '<', $0;
$content = <$fh>;
close $0;
}
my $doc = PPI::Document->new(\$content);
my $pod .= PPI::Token::Pod->merge(@{$doc->find('PPI::Token::Pod')});
say $pod;
__DATA__
# some data here
__END__
=head1 More
This should also be a piece of POD. Should it?
=cut
This test script yields:
=pod
=head1 Test
This is a piece of POD.
=head2 Sub
This is also a piece of POD.
=cut
Expected output:
=pod
=head1 Test
This is a piece of POD.
=head2 Sub
This is also a piece of POD.
=head1 More
This should also be a piece of POD. Should it?
=cut
The text was updated successfully, but these errors were encountered:
Pod below
__END__
is not recognized if a__DATA__
section is present.See #15 for additional info.
This test script yields:
Expected output:
The text was updated successfully, but these errors were encountered: