/usr/share/perl5/Data/Stag/XMLParser.pm is in libdata-stag-perl 0.11-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 | # $Id: XMLParser.pm,v 1.16 2008/06/03 17:31:15 cmungall Exp $
#
# Copyright (C) 2002 Chris Mungall <cjm@fruitfly.org>
#
# See also - http://stag.sourceforge.net
#
# This module is free software.
# You may distribute this module under the same terms as perl itself
package Data::Stag::XMLParser;
=head1 NAME
XMLParser.pm - parses XML files into stag events
=head1 SYNOPSIS
=cut
=head1 DESCRIPTION
=head1 AUTHOR
=cut
use Exporter;
use Carp;
use FileHandle;
use strict;
use XML::Parser::PerlSAX;
use Data::Stag::Util qw(rearrange);
use base qw(Data::Stag::BaseGenerator Exporter);
use vars qw($VERSION);
$VERSION="0.11";
sub fmtstr {
return 'xml';
}
# OVERRIDE
sub parse {
my $self = shift;
my ($file, $str, $fh) =
rearrange([qw(file str fh)], @_);
if ($str) {
# problem with IO::String in perl5.6.1
my $parser = XML::Parser::PerlSAX->new();
my $source = {String => $str};
my %parser_args = (Source => $source,
Handler => $self->handler);
$parser->parse(%parser_args);
}
else {
$self->SUPER::parse(-file=>$file, -str=>$str, -fh=>$fh);
}
}
sub parse_fh {
my $self = shift;
my $fh = shift;
my $parser = XML::Parser::PerlSAX->new();
my $source = {ByteStream => $fh};
my %parser_args = (Source => $source,
Handler => $self->handler);
$parser->parse(%parser_args);
}
1;
|