#!/usr/bin/perl -w
# t/xhtml20.t - test subclassing of Pod::Simple::XHTML
use strict;
use warnings;
use Test::More tests => 1;
BEGIN {
package MyXHTML;
use base 'Pod::Simple::XHTML';
sub handle_code {
my($self, $code, $kind) = @_;
$code = $kind . "[$code]";
$self->SUPER::handle_code($code);
}
sub start_code {
my($self, $kind) = @_;
$self->{scratch} .= "";
}
sub end_code {
my($self, $kind) = @_;
$self->{scratch} .= "
";
}
}
my ($parser, $results);
initialize();
$parser->parse_string_document(<<'EOT');
=head1 Foo
This is C<$code> and so is:
my $foo = 1;
Code might even be C<<< nested( B<< C<1> >> ) >>>.
EOT
is($results, <<'EOT');
This is C[$code]
and so is:
Verbatim[ my $foo = 1;]
Code might even be C[nested( ]
.C[1]
C[ )]