view release on metacpan or  search on metacpan

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

sub add {
    my ($self, $data) = @_;
    my $response = $self->api->post($data);
    if (defined($response->{'data'}->{'work_pid'})) {
        $self->pid($response->{'data'}->{'work_pid'});
    } else {
        $self->pid($response->{'data'}->{'persistentURIs'}->[0]);
    }
}

sub update {
    my ($self, $id, $data) = @_;
    my $response = $self->api->put($id, $data);
    if (defined($response->{'data'}->{'work_pid'})) {
        $self->pid($response->{'data'}->{'work_pid'});
    } else {
        $self->pid($response->{'data'}->{'persistentURIs'}->[0]);
    }
}

sub delete {