File Coverage

blib/lib/Class/DBI/Plugin/FastDelete.pm

Criterion	Covered	Total	%
statement	15	30	50.0
branch	0	8	0.0
condition			n/a
subroutine	5	6	83.3
pod	1	1	100.0
total	21	45	46.6

package Class::DBI::Plugin::FastDelete;

use strict;
use warnings;
use vars qw($VERSION @EXPORT);
require Exporter;

@EXPORT = qw(fast_delete);
$VERSION = 0.01;

use SQL::Abstract;

sub import {
    my $pkg = caller(0);
    $pkg->mk_classdata('_fast_delete');
    goto &Exporter::import;
}

sub fast_delete {
    my $class = shift;
    my $where = (ref $_[0]) ? $_[0] : { @_ };
    unless ( $class->_fast_delete ){
        $class->_fast_delete(SQL::Abstract->new);
    }

    my ($stmt, @bind) = $class->_fast_delete->delete($class->table,$where);
    my $sth;
    eval { $sth = $class->db_Main->prepare($stmt) };
    if ($@) {
        return $class->_db_error(
            msg => "Can't delete $class: $@",
            err => $@,
            method => 'delete_fast',
        );
    }

    eval { $sth->execute(@bind) };
    if ($@) {
        return $class->_db_error(
            msg => "Can't delete $class: $@",
            err => $@,
            method => 'delete_fast',
        );
    }

    return 1;
}

1;
__END__