| line |
true |
false |
branch |
|
191
|
0 |
0 |
if (ref $opts{$opt}) { } |
|
|
0 |
0 |
elsif (not defined $opts{$opt}) { } |
|
197
|
0 |
0 |
if (@bad) |
|
201
|
0 |
0 |
if (not $opts{'dbh'} and $opts{'connect'}) |
|
202
|
0 |
0 |
unless $opts{'dbh'} = 'DBI'->connect(@{$opts{'connect'};}) |
|
207
|
0 |
0 |
unless $opts{'dbh'} |
|
208
|
0 |
0 |
unless $opts{'dbh'}->isa('DBI::db') |
|
215
|
0 |
0 |
unless exists $opts{'init_id'} |
|
217
|
0 |
0 |
if (not $opts{'check_sql'} and $opts{'select_sql'}) |
|
221
|
0 |
0 |
unless ($opts{'select_sql'}) |
|
234
|
0 |
0 |
unless $opts{$1} |
|
249
|
0 |
0 |
unless $opts{$1} |
|
263
|
0 |
0 |
unless $opts{$1} |
|
266
|
0 |
0 |
unless ($opts{'release_sql'}) |
|
272
|
0 |
0 |
unless $opts{$1} |
|
310
|
0 |
0 |
if (eval {
do {
&$callback($self, @{$self;}{'last_id', 'dbh'});
1
}
}) { } |
|
321
|
0 |
0 |
unless defined $self->{'last_id'} |
|
324
|
0 |
0 |
unless $self->{'select_args'} |
|
325
|
0 |
0 |
if (defined $id) { } |
|
326
|
0 |
0 |
if ($self->is_ignored($id)) |
|
330
|
0 |
0 |
unless $self->{'check_args'} |
|
331
|
0 |
0 |
unless (defined $got_id) |
|
350
|
0 |
0 |
unless exists $self->{'last_lock'} |
|
354
|
0 |
0 |
unless $self->{'release_args'} |
|
357
|
0 |
0 |
unless defined $res |
|
367
|
0 |
0 |
if (defined $self->{$key}) |
|
369
|
0 |
0 |
unless $self->{'update_args'} |
|
372
|
0 |
0 |
unless my $res = $self->{'dbh'}->do($self->{'update_sql'}, undef, @{[] unless $self->{'update_args'};}, $self->{$key}, $id) |
|
373
|
0 |
0 |
unless 0 + $res |
|
389
|
0 |
0 |
if $self |