Blame examples/esis-test.pl
|
Packit |
d27c7e |
use XML::ESISParser;
|
|
Packit |
d27c7e |
use XML::Handler::Sample;
|
|
Packit |
d27c7e |
|
|
Packit |
d27c7e |
if ($ARGV[0] eq '--sgml') {
|
|
Packit |
d27c7e |
push (@additional_args, IsSGML => 1);
|
|
Packit |
d27c7e |
shift @ARGV;
|
|
Packit |
d27c7e |
}
|
|
Packit |
d27c7e |
|
|
Packit |
d27c7e |
if ($#ARGV != 0) {
|
|
Packit |
d27c7e |
die "usage: esis-test FILE\n";
|
|
Packit |
d27c7e |
}
|
|
Packit |
d27c7e |
$file = shift @ARGV;
|
|
Packit |
d27c7e |
|
|
Packit |
d27c7e |
$my_handler = XML::Handler::Sample->new;
|
|
Packit |
d27c7e |
|
|
Packit |
d27c7e |
XML::ESISParser->new->parse(Source => { SystemId => $file },
|
|
Packit |
d27c7e |
Handler => $my_handler,
|
|
Packit |
d27c7e |
@additional_args);
|
|
Packit |
d27c7e |
|