File Coverage

blib/lib/Catmandu/VIAF/API/Extract.pm

Criterion	Covered	Total	%
statement	12	44	27.2
branch	0	14	0.0
condition			n/a
subroutine	4	7	57.1
pod	0	3	0.0
total	16	68	23.5

package Catmandu::VIAF::API::Extract;

use strict;
use warnings;

use Catmandu::Sane;
use Moo;

has api_response  => (is => 'ro', required => 1);
has lang          => (is => 'ro', default => 'nl-NL');
has fallback_lang => (is => 'ro', default => 'en-US');

sub single {
    my $self = shift;
    my $descriptions = $self->api_response->{'rdf:Description'};
    my $person;
    foreach my $description (@{$descriptions}) {
        if ($self->is_person($description->{'rdf:type'}) == 1) {
            $person = $description;
            last;
        }
    }
    if (ref($person) ne "HASH") {
        return {};
    }
    return {
        'skos:prefLabel' => $self->pref_label($person),
        'dcterms:identifier' => $person->{'dcterms:identifier'}->{'content'},
        'schema:description' => $person->{'schema:description'},
        'schema:birthDate' => $person->{'schema:birthDate'},
        'schema:deathDate' => $person->{'schema:deathDate'},
        'guid' => $person->{'rdf:about'}
    };
}

sub pref_label {
    my ($self, $description) = @_;
    my $prefLabel;
    my $prefLabel_fallback;
    foreach my $label (@{$description->{'skos:prefLabel'}}) {
        if ($label->{'xml:lang'} eq $self->lang) {
            $prefLabel = $label->{'content'};
            last;
        }
        if ($label->{'xml:lang'} eq $self->fallback_lang) {
            $prefLabel_fallback = $label->{'content'};
        }
    }

    if (!defined($prefLabel)) {
        # No guarantee that this isn't undefined
        return $prefLabel_fallback;
    } else {
        return $prefLabel;
    }
}

sub is_person {
    my ($self, $rdf_types) = @_;
    if (ref($rdf_types) ne 'ARRAY') {
        $rdf_types = [$rdf_types];
    }
    foreach my $rdf_type (@{$rdf_types}) {
        if ($rdf_type->{'rdf:resource'} eq 'http://schema.org/Person') {
            return 1;
            last;
        }
    }
    return 0;
}

1;
__END__