File Coverage

blib/lib/Catmandu/OCLC/xID.pm

Criterion	Covered	Total	%
statement	29	31	93.5
branch	7	10	70.0
condition	2	6	33.3
subroutine	5	5	100.0
pod	0	1	0.0
total	43	53	81.1

package Catmandu::OCLC::xID;

use LWP::Simple;
use URI::Escape;
use JSON;
use Data::Dumper;

sub query {
    my $query   = shift;
    my $type    = shift;
    my $method  = shift;

    die "usage: query(query,type,method)" unless defined $query &&
                                                       defined $type &&
                                                       defined $method;
    my $endpoint;

    if ($type eq 'xisbn') {
    	$endpoint = 'http://xisbn.worldcat.org/webservices/xid/isbn';
    }
    elsif ($type eq 'xissn') {
    	$endpoint = 'http://xisbn.worldcat.org/webservices/xid/issn';
    }
    elsif ($type eq 'xstandardNumber') {
   		$endpoint = 'http://xisbn.worldcat.org/webservices/xid/oclcnum';
    }
    else {
    	$endpoint = 'http://xisbn.worldcat.org/webservices/xid/isbn';
    }

    my $request  = sprintf "%s/%s?method=%s&format=json&fl=*"
                            , $endpoint
                            , uri_escape($query)
                            , $method;

    my $response = get($request);
    my $json     = JSON->new->utf8(0);

    my $perl;
    eval {
        $perl = $json->decode($response);
    };
    if ($@) {
        $perl = { error => $@ };
    }

    $perl;
}

1;