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
27
28
29
30
31
32
33
34
35
|
#!perl
use strict;
use warnings;
# PURPOSE:
# show that we can have a "foo" region inside another "foo" region
use Test::More tests => 1;
use Test::Deep;
use Test::Differences;
use Moose::Autobox;
use Pod::Eventual::Simple;
use Pod::Elemental::Objectifier;
use Pod::Elemental::Transformer::Pod5;
use Pod::Elemental::Document;
my $string = do {
local $/;
open my $fh, '<', 't/eg/nested-begin.pod';
<$fh>;
};
my $events = Pod::Eventual::Simple->read_file('t/eg/nested-begin.pod')
->grep(sub { $_->{type} ne 'nonpod' });
my $elements = Pod::Elemental::Objectifier->objectify_events($events);
my $document = Pod::Elemental::Document->new({
children => $elements
});
Pod::Elemental::Transformer::Pod5->transform_node($document);
eq_or_diff($document->as_pod_string, $string, 'we got what we expected');
|
