Condition Coverage

blib/lib/DBI/PurePerl.pm
Criterion Covered Total %
condition 91 119 76.4


and 3 conditions

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'}

or 2 conditions

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'

or 3 conditions

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