| Subject: | properly detecting covered methods ( =head2 C<$p-E<gt>THEBUG> ) |
=head2 C<$p-E<gt>THEBUG>
is not detected.
The problem is that you don't interpolate E<gt>
(how we used to write pod before C<< $p->NOBUG >> was available).
What you really need to do is turn that into plaintext, something like
sub Pod::Coverage::Extractor::interior_sequence {
my($self, $command, $argument, $tree) = @_;
use Pod::Escapes();
return Pod::Escapes::e2char($argument) if $command eq 'E';
return $argument;
}
and then in sub Pod::Coverage::Extractor::command add something like
$text = $self->interpolate($text);