Blame examples/myhandler.pl
|
Packit |
d27c7e |
# This is the example script in doc/UsingPerlSAX.pod
|
|
Packit |
d27c7e |
|
|
Packit |
d27c7e |
use XML::Parser::PerlSAX;
|
|
Packit |
d27c7e |
use MyHandler;
|
|
Packit |
d27c7e |
|
|
Packit |
d27c7e |
my $my_handler = MyHandler->new;
|
|
Packit |
d27c7e |
my $parser = XML::Parser::PerlSAX->new( Handler => $my_handler );
|
|
Packit |
d27c7e |
|
|
Packit |
d27c7e |
foreach my $instance (@ARGV) {
|
|
Packit |
d27c7e |
$parser->parse(Source => { SystemId => $instance });
|
|
Packit |
d27c7e |
}
|