File Coverage

blib/lib/Business/xISBN.pm

Criterion	Covered	Total	%
statement	30	34	88.2
branch	5	10	50.0
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	42	52	80.7

use Carp qw(carp);
carp "The xisbn service was due to be turned off on March 15, 2016.";
package Business::xISBN;
use Business::ISBN 2;

package # hide from PAUSE
	Business::ISBN;

use strict;

=encoding utf8

=head1 NAME

Business::xISBN - access the xISBN service

=head1 SYNOPSIS

	use Business::ISBN;
	use Business::xISBN;

	# maybe you don't care what it is as long as everything works
	my $isbn = Business::ISBN->new( $ARGV[0] );
	my @xisbns = $isbn->xisbn;


=head1 DESCRIPTION

This is a mixin for L. Although it looks like it has
a different package name, it really declares methods to L.
This means that you can use this module and not change code from the 2.x
major version of L.

This is not a complete interface to xISBN. It merely retrieves related
ISBNs. If someone wants to expand this to handle other parts of the API,
send a pull request!

=cut

$VERSION = "1.003";

=item xisbn

In scalar context, returns an anonymous array of related ISBNs using xISBN.
In list context, returns a list. It does not include the original ISBN.

This feature uses L or L depending on
which one it finds first.

=cut

no warnings qw(redefine);

sub xisbn {
	my $self = shift;

	my $data = $self->_get_xisbn;
	$data =~ tr/x/X/;

	my @isbns = do {
		if( eval "require Mojo::DOM; 1" ) {
			my $dom = Mojo::DOM->new( $data );
			$dom->find( 'isbn' )->map('text')->each;
			}
		else {
			$data =~ m|(.*?)|g;
			}
		};

	shift @isbns;
	wantarray ? @isbns : \@isbns;
	}

sub _get_xisbn {
	my $self = shift;

	my $data = eval {
		if( eval "require Mojo::UserAgent; 1" ) {
			Mojo::UserAgent->new->get( $self->_xisbn_url )->res->text;
			}
		elsif( eval "require LWP::Simple; 1" ) {
			LWP::Simple::get( $self->_xisbn_url );
			}
		else {
			carp "Could not load either Mojo::UserAgent or LWP::Simple to fetch xISBN\n";
			return;
			}
		};

	carp "Could not fetch xISBN data" unless defined $data;

	return $data;
	}

sub _xisbn_url {
	my $self = shift;
	my $isbn = $self->as_string([]);

	return "http://xisbn.worldcat.org/xid/isbn/$isbn";
	}

1;

__END__