| blib/lib/DBI/PurePerl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 91 | 119 | 76.4 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 244 | 8736 | 2 | 94 | $method_name eq 'FETCH' and not exists $ENV{'DBI_TRACE'} |
| 506 | 17253 | 0 | 23627 | 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 | 4 | $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 | 9592 | 1125 | 3 | not $is_valid_attribute{$key} and $key =~ /^[A-Z]/ |
| 10717 | 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 | condition |
|---|---|---|---|
| 222 | 6360 | 2568 | $param_hash->{'O'} || 0 |
| 471 | 4 | 27 | $imp_data || '' |
| 525 | 2356 | 564 | $parent->{'ChildHandles'} ||= [] |
| 541 | 106 | 0 | $h_inner->{'FetchHashKeyName'} ||= 'NAME' |
| 542 | 0 | 106 | $h_inner->{'LongReadLen'} ||= 80 |
| 543 | 0 | 106 | $h_inner->{'ChildHandles'} ||= [] |
| 544 | 0 | 106 | $h_inner->{'Type'} ||= 'dr' |
| 649 | 2 | 0 | $Math::BigInt::VERSION || 0 |
| 946 | 89 | 237 | $state ||= 'S1000' |
| 1040 | 20 | 0 | $FetchCase || $h->{'FetchHashKeyName'} || 'NAME' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 491 | 3026 | 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 | 101 | 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 | 1827 | $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 |