Branch Coverage

blib/lib/DBD/ExampleP.pm
Criterion Covered Total %
branch 79 88 89.7


line true false branch
44 0 60 if $drh
97 4295 1461 if (defined $fields and defined $dir) { }
98 18 4277 $fields eq '*' ? :
103 0 1461 unless $statement =~ /^\s*set\s+/
116 8533 36 defined $DBD::ExampleP::statnames{$_} ? :
118 36 5720 if @bad
123 2188 3532 if defined $dir and not $dir =~ /\?/
124 4259 1461 $dir ? :
126 4259 1461 if (@fields)
147 4 12 if ($types{'VIEW'})
154 12 4 if ($types{'TABLE'})
156 0 12 unless opendir $dh, $dir
159 0 440 if ($^O eq 'VMS')
162 0 0 unless $item =~ /\.dir$/io
165 348 92 unless -d $file
174 0 16 unless $dbh->{'dbd_sponge_dbh'} ||= 'DBI'->connect('DBI:Sponge:', '', '')
188 0 16 unless my $sth = $sdbh->prepare("SHOW TABLES FROM $dir", $attr)
221 3027 6 (shift())->FETCH('Active') ? :
243 2339 31988 if $attrib eq 'example_driver_path'
251 4 50499 if ($attrib eq 'examplep_set_err')
256 5332 45167 if ($attrib eq 'AutoCommit')
259 5328 4 $value ? :
261 4 50495 if $attrib =~ /^examplep_/
267 2361 20 if $dbh->FETCH('Active')
285 14 152 if $name eq 'foo'
286 14 138 if $name eq 'bar'
287 14 124 if $name eq 'baz'
288 14 110 if $name eq 'boo'
289 14 96 if $name eq 'bop'
314 1898 3471 if (@dir)
321 12 5357 unless @$dbd_param == $sth->{'NUM_OF_PARAMS'}
323 1461 3896 unless $sth->{'NUM_OF_FIELDS'}
326 0 3896 unless defined $dir
336 12 3884 if ($dir =~ /^long_list_(\d+)$/) { }
343 12 3872 unless opendir $sym, $dir
357 1212 101158 if (ref $dir) { }
359 12 1200 unless ($num > 0)
370 155 101003 unless my $dh = $sth->{'dbd_datahandle'}
372 2021 98982 unless ($f)
393 3870 5998 if $sth->{'dbd_datahandle'}
406 2099 6516 if ($attrib eq 'TYPE') { }
2099 4417 elsif ($attrib eq 'PRECISION') { }
14 4403 elsif ($attrib eq 'ParamValues') { }
426 4259 15351 if $attrib eq 'NAME' or $attrib eq 'NULLABLE' or $attrib eq 'SCALE' or $attrib eq 'PRECISION'