File Coverage

blib/lib/WWW/Scraper/ISBN.pm

Criterion	Covered	Total	%
statement	64	68	94.1
branch	13	16	81.2
condition	4	9	44.4
subroutine	12	12	100.0
pod	5	5	100.0
total	98	110	89.0

package WWW::Scraper::ISBN;

use strict;
use warnings;

our $VERSION = '1.04';

#----------------------------------------------------------------------------
# Library Modules

use Carp;
use WWW::Scraper::ISBN::Record;
use WWW::Scraper::ISBN::Driver;

use Module::Pluggable   search_path => ['WWW::Scraper::ISBN'];

eval "use Business::ISBN";
my $business_isbn_loaded = ! $@;

#----------------------------------------------------------------------------
# Public API

# Preloaded methods go here.
sub new {
    my $proto = shift;
    my $class = ref($proto) || $proto;

    my $self = {
        DRIVERS => []
    };

    bless ($self, $class);
    return $self;
}

sub available_drivers {
    my $self = shift;
    my @plugins = $self->plugins();
    my @drivers;
    for my $plugin (@plugins) {
        next unless($plugin =~ /_Driver$/);
        $plugin =~ s/WWW::Scraper::ISBN::(\w+)_Driver/$1/;
        push @drivers, $plugin;
    }
    return @drivers;
}

sub drivers {
    my $self = shift;
    while ($_ = shift) {  push @{$self->{DRIVERS}}, $_; }
    for my $driver ( @{ $self->{DRIVERS} }) {
        require "WWW/Scraper/ISBN/".$driver."_Driver.pm";
    }
    return @{ $self->{DRIVERS} };
}

sub reset_drivers {
    my $self = shift;
    $self->{DRIVERS} = [];
    return @{ $self->{DRIVERS} };
}

sub search {
    my ($self,$isbn) = @_;

    croak("Invalid ISBN specified [].\n") unless($isbn);

    if($business_isbn_loaded) {
        # Business::ISBN has strong validation algorithms
        my $isbn_object = Business::ISBN->new($isbn);
        croak("Invalid ISBN specified [$isbn].\n") unless($isbn_object && $isbn_object->is_valid);
    } else {
        # our fallback just validates it looks like an ISBN
        my $isbn_object = WWW::Scraper::ISBN::Driver->new();
        croak("Invalid ISBN specified [$isbn].\n") unless($isbn_object && $isbn_object->is_valid($isbn));
    }

    croak("No search drivers specified.\n")
        if( $self->drivers == 0 );

    my $record = WWW::Scraper::ISBN::Record->new();
    $record->isbn($isbn);
    for my $driver_name (@{ $self->{DRIVERS} }) {
        my $driver = "WWW::Scraper::ISBN::${driver_name}_Driver"->new();
        $driver->search($record->isbn);
        if ($driver->found) {
            $record->found("1");
            $record->found_in("$driver_name");
            $record->book($driver->book);
            last;
        }

        $record->error($record->error.$driver->error)
            if ($driver->error);
    }

    return $record;
}

1;

__END__