view release on metacpan or  search on metacpan

lib/Catmandu/Store/FedoraCommons/DC.pm  view on Meta::CPAN

    my $res   = $self->fedora->getDatastreamDissemination( pid => $pid , dsID => 'DC');
    
    return undef unless $res->is_ok;
    
    my $data  = $res->parse_content;
    my $perl  = $self->deserialize($data);
    
    { _id => $pid , %$perl };
}

sub update {
    my ($self,$obj) = @_;
    my $pid = $obj->{_id};

    return undef unless $pid;
    
    my ($valid,$reason) = $self->valid($obj);
    
    unless ($valid) {
        warn "data is not valid";
        return undef;