view release on metacpan or  search on metacpan

lib/DBD/AnyData2.pm  view on Meta::CPAN

    $meta->{ad2h}->insert_new_row($row_aryref);
}

sub delete_one_row ($$$)
{
    my ( $self, $data, $aryref ) = @_;
    my $meta = $self->{meta};
    $meta->{ad2h}->delete_one_row($aryref);
}

sub update_one_row ($$$)
{
    my ( $self, $data, $aryref ) = @_;
    my $meta = $self->{meta};
    # we don't know the key item
    $meta->{ad2h}->update_one_row($aryref);
}

sub update_specific_row ($$$$)
{
    my ( $self, $data, $aryref, $origary ) = @_;
    my $meta   = $self->{meta};
    return unless ( defined $origary->[0] );
    $origary->[0] eq $aryref->[0] or croak "Updating a row with new transaction ID is not supported. DELETE and INSERT instead.";
    my $row = ( ref($aryref) eq 'ARRAY' ) ? $aryref : [$aryref];
    $meta->{ad2h}->update_specific_row($aryref, $origary);
}

1;