blob: 1917f3a72b5e9554f06917966a0e61b6449f89aa (
plain) (
blame)
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
36
37
38
39
40
41
42
43
44
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use FindBin;
use Pod::Elemental;
use Pod::Weaver;
my $weaver = Pod::Weaver->new_from_config({root => "$FindBin::Bin/01"});
my $doc = Pod::Elemental->read_string(<<'POD');
=head1 BEGINNING
start of pod
=head1 ENDING
end of pod
=cut
POD
my $woven = $weaver->weave_document({pod_document => $doc});
is($woven->as_pod_string, <<'POD', "got the right pod");
=pod
=head1 BEGINNING
start of pod
=head1 TEMPLATE
got template with parameter FOO
=head1 ENDING
end of pod
=cut
POD
done_testing;
|