/usr/share/perl5/HTTP/OAI/Metadata.pm is in libhttp-oai-perl 3.27-1.
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 | package HTTP::OAI::Metadata;
use vars qw(@ISA);
@ISA = qw(HTTP::OAI::Encapsulation::DOM);
1;
__END__
=head1 NAME
HTTP::OAI::Metadata - Base class for data objects that contain DOM trees
=head1 SYNOPSIS
use HTTP::OAI::Metadata;
$xml = XML::LibXML::Document->new();
$xml = XML::LibXML->new->parse( ... );
$md = new HTTP::OAI::Metadata(dom=>$xml);
print $md->dom->toString;
my $dom = $md->dom(); # Return internal DOM tree
=head1 METHODS
=over 4
=item $md->dom( [$dom] )
Return and optionally set the XML DOM object that contains the actual metadata. If you intend to use the generate() method $dom must be a XML_DOCUMENT_NODE.
=back
|