view release on metacpan or  search on metacpan

lib/Document/TriPart/Cabinet/Storage/Disk.pm  view on Meta::CPAN

    my $document = shift;
    $self->_write_document( $document );
}

#sub insert {
#    my $self = shift;
#    my $document = shift;
#    $self->_write_document( $document );
#}

#sub update {
#    my $self = shift;
#    my $document = shift;
#    $self->_write_document( $document );
#}

#sub update_or_insert {
#    my $self = shift;
#    my $document = shift;

#    if ( $self->_load( $document ) ) {
#        $self->update( $document );
#    }
#    else {
#        $self->insert( $document );
#    }
#}