File Coverage

blib/lib/Class/DBI/MSAccess.pm

Criterion	Covered	Total	%
statement	9	21	42.8
branch	0	6	0.0
condition			n/a
subroutine	3	5	60.0
pod			n/a
total	12	32	37.5

package Class::DBI::MSAccess;

use warnings;
use strict;

use base qw(Class::DBI);

our $VERSION = '0.10.2';

sub _auto_increment_value {
    my ($self) = @_;
    my $dbh = $self->db_Main;

    my ($id) = $dbh->selectrow_array('SELECT @@IDENTITY');
    $self->_croak("Can't get last insert id") if !defined $id;
    return $id;
}

sub _insert_row {
    my ( $self, $data ) = @_;

    # delegate to Class::DBI for multiple column primary keys
    my @primary_columns = $self->primary_columns();
    return $self->SUPER::_insert_row($data) if @primary_columns > 1;

    # delegate to Class::DBI for explicitly specified primary keys
    my $primary_column = $primary_columns[0];
    return $self->SUPER::_insert_row($data)
        if defined $data->{$primary_column};

    # remove the name of the primary key column
    delete $data->{$primary_column};
    return $self->SUPER::_insert_row($data);
}

1;

__END__