File Coverage

blib/lib/Catmandu/OCLC/VIAFAuthorityCluster.pm

Criterion	Covered	Total	%
statement	28	32	87.5
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	36	42	85.7

package Catmandu::OCLC::VIAFAuthorityCluster;

use REST::Client;
use URI::Escape;
use JSON;
use Catmandu;
use Data::Dumper;

our $MARC_HEADER = qq||;
our $MARC_FOOTER = qq||;

sub read {
	my $identifier = shift;
    my $client     = REST::Client->new(host => 'http://www.viaf.org');
    my $path       = sprintf "/viaf/%s/marc21.xml", $identifier;
	my $res        = $client->GET($path);

	return undef unless $res->responseCode eq '200';

	my $content    = $MARC_HEADER . $res->responseContent . $MARC_FOOTER;
	$content =~ s{mx:}{marc:}g;

	my $fh;
	open($fh, '<', \$content);

	my $importer   = Catmandu->importer(MARC, type=>'XML' , fh => $fh);

	my $record     = $importer->first;

	close($fh);

	delete $record->{_id};

	return $record;
}

1;