File Coverage

blib/lib/SeeAlso/Identifier/ISBN.pm

Criterion	Covered	Total	%
statement	49	49	100.0
branch	22	24	91.6
condition	15	17	88.2
subroutine	10	10	100.0
pod	5	5	100.0
total	101	105	96.1

use strict;
use warnings;
package SeeAlso::Identifier::ISBN;
{
  $SeeAlso::Identifier::ISBN::VERSION = '0.71';
}
#ABSTRACT: International Standard Book Number as Identifier

use Business::ISBN;
use Carp;

use base qw( SeeAlso::Identifier );


sub parse {
    my $value = shift;
    $value = shift if ref($value) and scalar @_;

    if (defined $value and not UNIVERSAL::isa( $value, 'Business::ISBN' ) ) {
        $value =~ s/^urn:isbn://i;
        $value = Business::ISBN->new( $value );
    }

    return '' unless defined $value;

    my $status = $value->error;
    if ( $status != Business::ISBN::GOOD_ISBN &&
         $status != Business::ISBN::INVALID_GROUP_CODE &&
         $status != Business::ISBN::INVALID_PUBLISHER_CODE ) {
         return '';
    }

    $value = $value->as_isbn13 unless ref($value) eq 'Business::ISBN13';

    return $value->as_string([]);
}


sub canonical {
    return ${$_[0]} eq '' ? '' : 'urn:isbn:' . ${$_[0]};
}


sub hash {
    my $self = shift;

    # TODO: support use as constructor and as function

    if ( scalar @_ ) {
        my $value = shift;
        $value = defined $value ? "$value" : "";
        $value = '' if not $value =~ /^[0-9]+$/ or $value >= 2000000000;
        if ( $value eq "" ) {
            $$self = '';
            return '';
        }
        my $isbn = Business::ISBN13->new( ($value+978000000000) . "X" );
        $isbn->fix_checksum;
        $self->value( $isbn );
        return $value;
    } else {
        return $$self eq '' ? '' : substr($$self, 2, 10 ) - 8000000000;
    }
}


sub isbn13 {
    my $self = shift;
    return $$self;
}


sub isbn10 {
    my $self = shift;
    return '' if $$self eq '' or not $$self =~ /^978/;
    my $value = Business::ISBN->new( substr($$self,3) );
    $value->fix_checksum;
    return $value->as_string([]);
}

1;


__END__