blob: 06a05ae0641c4d57e758749301f6d37777f3d896 (
plain)
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
#!/usr/bin/perl -w
# t/xhtml20.t - test subclassing of Pod::Simple::XHTML
use strict;
use warnings;
use Test::More tests => 2;
BEGIN {
package MyXHTML;
use base 'Pod::Simple::XHTML';
sub handle_code {
my($self, $code) = @_;
$code = "[$code]";
$self->SUPER::handle_code($code);
}
}
my ($parser, $results);
initialize();
$parser->parse_string_document(<<'EOT');
=head1 Foo
This is C<$code> and so is:
my $foo = 1;
EOT
like $results, qr/<code>\[\$code]<\/code>/;
like $results , qr/<pre><code>\[ my \$foo = 1;/;
sub initialize {
$parser = MyXHTML->new;
$parser->output_string( \$results );
$results = '';
}
|
