1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#!perl
use strict;
use warnings;
use Test::More;
use Pod::Elemental;
use Pod::Elemental::Transformer::Pod5;
use Pod::Elemental::Element::Pod5::Region;
use Pod::Elemental::Element::Pod5::Ordinary;
my $for_pl_pod = <<'END_POD';
This is not a Pod paragraph.
=cut
END_POD
### parse a podlike =for
my $for_pl = Pod::Elemental->read_string($for_pl_pod);
Pod::Elemental::Transformer::Pod5->new->transform_node($for_pl);
my $para = $for_pl->children->[0];
isa_ok($para, 'Pod::Elemental::Element::Pod5::Nonpod');
done_testing;
|
