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