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
|
use strict;
use warnings;
use Test::More tests => 2;
use Pod::Simple::Text;
my $p = Pod::Simple::Text->new();
$p->parse_string_document('dm+aSxLl7V3VUJFIe6CFDU13zhZ3yvjIuVkp6l//ZHcDcX014vnnh3FoElI92kFB
JGFU23Vga5Tfz0Epybwio9dq1gzrZ/PIcil2MnEcUWSrIStriv4hAbf0MXcNRHOM
oOV7xKU=
=y6KV
-----END PGP PUBLIC KEY BLOCK-----};
print $key;
exit;
');
# The =y6KV should not make this appear to be pod
ok ! $p->content_seen;
my $q = Pod::Simple::Text->new();
$q->parse_string_document('=head1 yes this is pod
And this fills it in
');
ok $q->content_seen;
|
