1use strict; 2use warnings; 3use Test::More tests => 2; 4 5use Pod::Simple::Text; 6 7my $p = Pod::Simple::Text->new(); 8$p->parse_string_document('dm+aSxLl7V3VUJFIe6CFDU13zhZ3yvjIuVkp6l//ZHcDcX014vnnh3FoElI92kFB 9JGFU23Vga5Tfz0Epybwio9dq1gzrZ/PIcil2MnEcUWSrIStriv4hAbf0MXcNRHOM 10oOV7xKU= 11=y6KV 12-----END PGP PUBLIC KEY BLOCK-----}; 13 14print $key; 15exit; 16'); 17 18# The =y6KV should not make this appear to be pod 19ok ! $p->content_seen; 20 21my $q = Pod::Simple::Text->new(); 22$q->parse_string_document('=head1 yes this is pod 23 24And this fills it in 25'); 26 27ok $q->content_seen; 28