File Coverage

blib/lib/DBIx/Transaction/st.pm

Criterion	Covered	Total	%
statement	15	24	62.5
branch	0	4	0.0
condition			n/a
subroutine	5	6	83.3
pod	1	1	100.0
total	21	35	60.0

package DBIx::Transaction::st;

use DBI;
use base q(DBI::st);
use strict;
use warnings (FATAL => 'all');
use Carp qw(croak);

return 1;

sub execute {
    my $self = shift;
    my $rv = eval { DBI::st::execute($self, @_); };
    if($@) {
        $self->{Database}->inc_transaction_error(caller, $self->errstr);
        croak "$@\n";
    }
    if(!$rv) {
        $self->{Database}->inc_transaction_error(caller, $self->errstr);
    }
    return $rv;
}

=pod

=head1 NAME

DBIx::Transaction::st - Statement handle when running under DBIx::Transaction

=head1 DESCRIPTION

When you connect to a database using DBIx::Transaction, your statement handles
will be C objects. When these statement handles are
executed, C will notice when query errors occur, and
let the database handle know. See
L
for more information.

=head1 METHODS

C only overrides one standard L method:

=over

=item execute

Calls C on the underlying database layer. If an error
occurs, this is recorded and you will not be able to issue a C
for the current transaction.

=back

=head1 SEE ALSO

L, L

=cut