| blib/lib/DBI/PurePerl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 88 | 119 | 73.9 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 241 | 8076 | 2 | 88 | $method_name eq 'FETCH' and not exists $ENV{'DBI_TRACE'} |
| 504 | 16968 | 0 | 23338 | exists $$parent{$_} and not exists $$h_inner{$_} |
| 557 | 2 | 16 | 0 | defined $level and not looks_like_number($level) |
| 585 | 10 | 16 | 4 | $file and ref \$file eq 'GLOB' |
| 689 | 0 | 612 | 4 | $maxlen and $maxlen < length($v) + 2 |
| 704 | 12 | 0 | 0 | $^W and warn $@ |
| 723 | 12 | 12 | 2 | defined $evalret and $evalret == -2 |
| 806 | 44 | 90 | 26 | defined $level and not DBI::looks_like_number($level) |
| 849 | 8 | 0 | 0 | $h->FETCH('TaintIn') && $h->FETCH('TaintOut') |
| 852 | 2237 | 0 | 42 | $key eq 'ChildHandles' and $HAS_WEAKEN |
| 859 | 1842 | 343 | 2 | not $is_valid_attribute{$key} and $key =~ /^[A-Z]/ |
| 868 | 9425 | 1089 | 2 | not $is_valid_attribute{$key} and $key =~ /^[A-Z]/ |
| 10514 | 0 | 2 | not $is_valid_attribute{$key} and $key =~ /^[A-Z]/ and not exists $$h{$key} | |
| 920 | 6 | 7 | 14 | $$h{'err'} and $errnum |
| 13 | 4 | 10 | $$h{'err'} and $errnum and $$h{'err'} ne $errnum | |
| 922 | 11 | 6 | 6 | $$h{'state'} ne 'S1000' and $state |
| 17 | 2 | 4 | $$h{'state'} ne 'S1000' and $state and $$h{'state'} ne $state | |
| 4 | 23 | 0 | $$h{'state'} and ($$h{'state'} ne 'S1000' and $state and $$h{'state'} ne $state) | |
| 933 | 0 | 9 | 3 | defined $errnum and length $errnum > length $$h{'err'} |
| line | l | !l | condition |
|---|---|---|---|
| 222 | 5870 | 2386 | $$param_hash{'O'} || 0 |
| 470 | 4 | 27 | $imp_data || '' |
| 524 | 2328 | 551 | $$parent{'ChildHandles'} ||= [] |
| 540 | 96 | 0 | $$h_inner{'FetchHashKeyName'} ||= 'NAME' |
| 541 | 0 | 96 | $$h_inner{'LongReadLen'} ||= 80 |
| 542 | 0 | 96 | $$h_inner{'ChildHandles'} ||= [] |
| 543 | 0 | 96 | $$h_inner{'Type'} ||= 'dr' |
| 648 | 2 | 0 | $Math::BigInt::VERSION || 0 |
| 944 | 89 | 234 | $state ||= 'S1000' |
| 1038 | 24 | 0 | $FetchCase || $$h{'FetchHashKeyName'} || 'NAME' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 490 | 2975 | 0 | 0 | tied %$h || $h |
| 592 | 10 | 2 | 14 | not $file or $file eq 'STDERR' |
| 608 | 4 | 0 | 0 | $msg ||= "dump_handle $h" |
| 670 | 2 | 6 | 4886 | not defined $thing or $thing eq '' |
| 688 | 101 | 0 | 515 | shift() || $DBI::neat_maxlen |
| 848 | 0 | 0 | 3533 | defined $v or exists $$h{$key} |
| 869 | 2 | 545 | 0 | $value == -900 or $value == -901 |
| 906 | 0 | 1129 | 0 | tied %$h || $h |
| 933 | 323 | 5 | 12 | $errnum or not defined $$h{'err'} |
| 328 | 0 | 12 | $errnum or not defined $$h{'err'} or defined $errnum and length $errnum > length $$h{'err'} | |
| 1046 | 4 | 0 | 1801 | $$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 } |
| 1056 | 6 | 134 | 0 | $$h{'_fbav'} ||= dbih_setup_fbav($h) |
| 1083 | 96 | 66 | 0 | $$h{'_fbav'} ||= dbih_setup_fbav($h) |
| 1085 | 2 | 4 | 156 | $col < 1 or $col > $num_of_fields |