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
|
use Test;
BEGIN { plan tests => 2 }
use XML::SAX::Base;
use strict;
# Tests for in-stream switch of Handler classes.
my $handler = HandlerOne->new();
my $filter = FilterOne->new( ContentHandler => $handler );
my $driver = Driver->new( Handler => $filter);
ok( $filter->get_handler('ContentHandler') =~ /HandlerOne/ );
ok( $filter->get_content_handler() =~ /HandlerOne/ );
# end main
package HandlerOne;
use base qw(XML::SAX::Base);
1;
package FilterOne;
use base qw(XML::SAX::Base);
1;
package Driver;
use base qw(XML::SAX::Base);
1;
|
