view release on metacpan or  search on metacpan

lib/Catmandu/Store/VIAF/Bag.pm  view on Meta::CPAN

package Catmandu::Store::VIAF::Bag;

use strict;
use warnings;

use Catmandu::Sane;
use Moo;

use Catmandu::VIAF::API;

with 'Catmandu::Bag';

sub generator {
    my $self = shift;
    Catmandu::NotImplemented->throw(
        message => 'Iterating over items in this store not supported.'
    );
}

sub get {
    my ($self, $id) = @_;
    my $a = Catmandu::VIAF::API->new(
        term          => $id,
        lang          => $self->store->lang,
        fallback_lang => $self->store->fallback_lang
    );
    return $a->id();
}

sub add {
    my ($self, $data) = @_;
    Catmandu::NotImplemented->throw(
        message => 'Adding item to store not supported.'
    );
}

sub update {
    my ($self, $id, $data) = @_;
    Catmandu::NotImplemented->throw(
        message => 'Updating item in store not supported.'
    );
}

sub delete {
    my ($self, $id) = @_;
    Catmandu::NotImplemented->throw(
        message => 'Deleting item from store not supported.'
    );
}

sub delete_all {
    my $self = shift;
    Catmandu::NotImplemented->throw(
        message => 'Deleting items from store not supported.'
    );
}

1;

__END__