File Coverage

blib/lib/SeeAlso/Identifier/GND.pm

Criterion	Covered	Total	%
statement	44	44	100.0
branch	13	16	81.2
condition	5	5	100.0
subroutine	10	10	100.0
pod	5	5	100.0
total	77	80	96.2

use strict;
use warnings;
package SeeAlso::Identifier::GND;
{
  $SeeAlso::Identifier::GND::VERSION = '0.71';
}
#ABSTRACT: Identifier of the GND Authority File


use SeeAlso::Identifier;
use Carp;

use base qw( SeeAlso::Identifier );


sub new {
    my $class = shift;
    my $self = bless { }, $class;
    $self->value( shift || "" );
    return $self;
}


sub value {
    my $self = shift;
    my $value = shift;

    if (defined $value) {
        $value =~  s/^\s+|\s+$//;
        $value =~ s/^http:\/\/d-nb.info\/gnd\/|(GND|pnd|SWD|GKD|EST)\s*//i;
        $value =~  s/^0+//; # zeros
        $value =~ s/-//g;
        $self->{value} = uc($value);
    }

    return $self->{value};
}


sub valid {
    my $self = shift;
    my $value = $self->{value};

    return if $value !~ /^[0-9]*[0-9X]$/;
    return 1 if length($value) > 9; # new long GND

    # TODO: fix bad syntax
    if ($value) { # not on empty value
        for (my $i = 9-length($value);$i>0;$i--) {
            $value =  "0$value";
        }
    }

    $value =~ /^([0-9])([0-9])([0-9])([0-9])([0-9])([0-9])([0-9])([0-9])([0-9X])$/
    || return;
    my $sum = $1*9 + $2*8 + $3*7 + $4*6 + $5*5 + $6*4 + $7*3 + $8*2;
    my $c = $9 eq 'X' ? 10 : $9;
    $sum %= 11;

    return ((((11 - $sum) % 11) eq $c) or ((11 - (11 - $sum) % 11) eq $c));
}


sub canonical {
    my $self = shift;
    return $self->valid() ? ("http://d-nb.info/gnd/" . $self->{value}) : "";
}


sub indexed {
    my $self = shift;
    return $self->valid ? $self->{value} : undef;
}

1;

__END__