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;