| line |
!l |
l&&!r |
l&&r |
condition |
|
25
|
36 |
2 |
0 |
$opts{'join'} and not $opts{'db_file'} |
|
28
|
33 |
5 |
0 |
$opts{'file'} and not $opts{'db_file'} |
|
38
|
2 |
34 |
2 |
not $opts{'join'} and -f $opts{'db_file'} |
|
42
|
36 |
0 |
2 |
$opts{'join'} && -f $opts{'db_file'} |
|
135
|
2 |
12 |
28511 |
$self->{'_dbh'} and $$ == $self->{'_pid'}[0] |
|
|
14 |
0 |
28511 |
$self->{'_dbh'} and $$ == $self->{'_pid'}[0] and $tid == $self->{'_pid'}[1] |
|
162
|
0 |
0 |
34 |
$dbh && eval {
do {
$dbh->{'PrintWarn'} = $dbh->{'PrintError'} = 0;
$dbh->begin_work;
my $z1 = _try(3, sub {
$dbh->do("DELETE FROM pids WHERE pid=$$ AND tid=$tid");
}
);
if ($z1) {
my $sth = $dbh->prepare('SELECT COUNT(*) FROM pids');
my $z2 = $sth->execute;
$t = $sth->fetchall_arrayref;
}
else {
print STDERR "$$ DESTROY: DELETE FROM pids failed\n" if $_DEBUG;
$t = [[-2]];
} ;
$dbh->commit;
print STDERR "$$ DESTROY npids=$t->[0][0]\n" if $_DEBUG;
1
}
} |
|
183
|
0 |
0 |
34 |
$t and $t->[0] |
|
|
0 |
12 |
22 |
$t and $t->[0] and $t->[0][0] == 0 |
|
197
|
22788 |
0 |
0 |
not $dbh and $self->{'_DESTROY'} |
|
200
|
22590 |
0 |
0 |
not $sth and $self->{'_DESTROY'} |
|
223
|
0 |
0 |
198 |
$z1 && _try(5, sub {
$sth2->execute($key, $value);
}
) |
|
366
|
0 |
0 |
2 |
@items and $self->_avail < $limit |
|
433
|
125 |
21 |
1276 |
@items and $self->_avail < $limit |
|
502
|
3 |
0 |
0 |
$self->limit > 0 and $count > $self->limit |
|
670
|
6 |
2 |
24 |
@items and $self->_avail < $limit |
|
720
|
69 |
48 |
0 |
$lo > 0 and $block |
|
731
|
47 |
0 |
70 |
$purge && $dbh->prepare('DELETE FROM the_queue WHERE item=? AND timestamp=? AND batchid=?') |
|
741
|
0 |
0 |
20228 |
$sths && $sths->execute($limit) |
|
742
|
0 |
0 |
20228 |
$sths && $sths->fetchall_arrayref |
|
743
|
20228 |
0 |
0 |
$lo < 0 and -$lo > @$tt |
|
747
|
108 |
0 |
20106 |
$block > 1 and $lo == 0 |
|
|
108 |
2 |
20104 |
$block > 1 and $lo == 0 and @$tt < $hi |
|
818
|
0 |
0 |
0 |
$block and $self->_wait_for_item |
|
908
|
68 |
0 |
17 |
defined $candidate and $candidate ne '' |
|
|
68 |
0 |
17 |
defined $candidate and $candidate ne '' and -d $candidate |
|
|
0 |
0 |
17 |
defined $candidate and $candidate ne '' and -d $candidate and -w _ |
|
|
0 |
0 |
17 |
defined $candidate and $candidate ne '' and -d $candidate and -w _ and -x _ |