Benign perl Download

MARC-File-XML v1.0.6

“convert a MARC file to XML”

Perl unlink file deletion callPerl file descriptor redirect

SHA-256957ff8f3df09b5a7dc22c1370cc489a7c5558ed333c8b44b91660fe956905c50

URLhttps://cpan.metacpan.org/authors/id/G/GM/GMCHARLT/MARC-File-XML-1.0.6.tar.gz

Evidence

imports ExtUtils::MakeMaker Makefile.PL · lines 1–8

1use strict;
2use warnings;
3
4use ExtUtils::MakeMaker;
5
6WriteMakefile(
7    'NAME'          => 'MARC::File::XML',
8    'DISTNAME'      => 'MARC-File-XM …

Gmail consumer email domain suffix Makefile.PL · lines 12–17

48… box.com>',
                          'Galen Charlton <gmcharlt@gmail.com>',
                     ],
  'LICENSE'       => 'perl',
  'PREREQ_PM'     => {
                          'XML::LibXML'  …

imports MARC::Batch encode.t · lines 1–16

1use strict;
2use warnings;
3
4use MARC::File::XML;
5use MARC::Record;
6use MARC::Batch;
7use Test::More tests => 8;
8
9## create a MARC::Record object from some MARC data on disk
10my $batch = MARC::Batch->new( 'USMARC', 't/record.dat' );
11my $r1 = $batch->next();
12
13## serialize the record as XML
14my $xml = $r1->as_xml();
15
16## parse the XML into a …

Perl unlink file deletion call encode.t · lines 44–47

44:11… s_formatted(), $r3->as_formatted(), 'writing to file works' );
45
46unlink( 't/test.xml' );
47

Perl file descriptor redirect external-entities.t · lines 15–22

15:25…  ind1="0" ind2="0">
16         <subfield code="a">The original MARC format /</subfield>
17         <subfield code="c">&avram;</subfield>
18    </datafield>
19</record>);
20
21my $marc_ent = MARC::Record->new_from_xml($xml_ent);
22is($marc_ent->subfield('245 …

No evidence locations were recorded for this file. Raw result