line |
!l |
l&&!r |
l&&r |
condition |
244
|
8830 |
2 |
95 |
$method_name eq 'FETCH' and not exists $ENV{'DBI_TRACE'} |
506
|
17305 |
0 |
23715 |
exists $parent->{$_} and not exists $h_inner->{$_} |
558
|
2 |
16 |
0 |
defined $level and not looks_like_number($level) |
586
|
10 |
16 |
4 |
$file and ref \$file eq 'GLOB' |
690
|
0 |
612 |
6 |
$maxlen and $maxlen < length($v) + 2 |
705
|
12 |
0 |
0 |
$^W and warn $@ |
724
|
12 |
12 |
2 |
defined $evalret and $evalret == -2 |
807
|
44 |
90 |
26 |
defined $level and not DBI::looks_like_number($level) |
850
|
8 |
0 |
0 |
$h->FETCH('TaintIn') && $h->FETCH('TaintOut') |
853
|
2267 |
0 |
42 |
$key eq 'ChildHandles' and $HAS_WEAKEN |
860
|
1864 |
351 |
2 |
not $is_valid_attribute{$key} and $key =~ /^[A-Z]/ |
869
|
9617 |
1125 |
3 |
not $is_valid_attribute{$key} and $key =~ /^[A-Z]/ |
|
10742 |
1 |
2 |
not $is_valid_attribute{$key} and $key =~ /^[A-Z]/ and not exists $h->{$key} |
923
|
6 |
7 |
14 |
$h->{'err'} and $errnum |
|
13 |
4 |
10 |
$h->{'err'} and $errnum and $h->{'err'} ne $errnum |
925
|
11 |
6 |
6 |
$h->{'state'} ne 'S1000' and $state |
|
17 |
2 |
4 |
$h->{'state'} ne 'S1000' and $state and $h->{'state'} ne $state |
|
4 |
13 |
10 |
$h->{'state'} and ($h->{'state'} ne 'S1000' and $state and $h->{'state'} ne $state) |
935
|
0 |
9 |
3 |
defined $errnum and length $errnum > length $h->{'err'} |
line |
l |
!l&&r |
!l&&!r |
condition |
491
|
3037 |
0 |
0 |
tied %$h || $h |
593
|
10 |
2 |
14 |
not $file or $file eq 'STDERR' |
609
|
4 |
0 |
0 |
$msg ||= "dump_handle $h" |
671
|
2 |
6 |
4890 |
not defined $thing or $thing eq '' |
689
|
103 |
515 |
0 |
shift() || $DBI::neat_maxlen |
849
|
0 |
0 |
3587 |
defined $v or exists $h->{$key} |
870
|
2 |
566 |
0 |
$value == -900 or $value == -901 |
908
|
0 |
1149 |
0 |
tied %$h || $h |
935
|
326 |
9 |
12 |
$errnum or not defined $h->{'err'} |
|
335 |
3 |
9 |
$errnum or not defined $h->{'err'} or defined $errnum and length $errnum > length $h->{'err'} |
1048
|
4 |
0 |
1831 |
$h->{'_fbav'} || do {
$DBI::rows = $h->{'_rows'} = 0;
DBI::croak('NUM_OF_FIELDS not set') unless my $fields = $h->{'NUM_OF_FIELDS'};
my(@row) = (undef) x $fields;
\@row
} |
1058
|
6 |
141 |
0 |
$h->{'_fbav'} ||= dbih_setup_fbav($h) |
1085
|
96 |
66 |
0 |
$h->{'_fbav'} ||= dbih_setup_fbav($h) |
1087
|
2 |
4 |
156 |
$col < 1 or $col > $num_of_fields |