| line |
true |
false |
branch |
|
35
|
0 |
66 |
unless opendir DIR, "$dir/DBI/Format" |
|
36
|
132 |
132 |
/^(\w+)\.pm$/i ? : |
|
47
|
22 |
0 |
if ($use_abbrev) |
|
62
|
0 |
22 |
unless ($fmt) |
|
71
|
2 |
20 |
if ($@ and $@ =~ /locate/) { } |
|
|
0 |
20 |
elsif ($@) { } |
|
73
|
0 |
2 |
if $@ |
|
75
|
0 |
0 |
if $@ |
|
93
|
22 |
20 |
@_ == 1 ? : |
|
108
|
52 |
1 |
if defined $sep |
|
116
|
259 |
0 |
unless $t == &SQL_BOOLEAN() |
|
145
|
0 |
2315 |
unless defined $_ |
|
170
|
18 |
2297 |
unless (defined $value) |
|
175
|
0 |
2315 |
if ($sql_type == &SQL_BOOLEAN()) |
|
176
|
0 |
0 |
$value ? : |
|
185
|
509 |
0 |
wantarray ? : |
|
198
|
0 |
0 |
if not $fh and $self->{'fh'} |
|
202
|
52 |
1 |
if ref($fh) =~ /GLOB/ |
|
204
|
0 |
1 |
unless (UNIVERSAL::can($fh, 'print')) |
|
225
|
19 |
0 |
defined $precision ? : |
|
|
0 |
19 |
$type == &SQL_NUMERIC() && defined $precision && $precision > 15 ? : |
|
|
0 |
19 |
$type == &SQL_INTEGER() && defined $precision && $precision > 15 ? : |
|
|
0 |
19 |
$type == &SQL_DATE() ? : |
|
|
0 |
19 |
!defined($type) ? : |
|
274
|
14 |
0 |
defined $names->[$i] ? : |
|
298
|
12 |
128 |
if (length $_ > $widths->[$i]) |
|
321
|
13 |
1 |
$right_justify->[$i] ? : |
|
356
|
0 |
0 |
defined $names->[$i] ? : |
|
379
|
0 |
0 |
if (length $_ > $widths->[$i]) |
|
402
|
0 |
0 |
$right_justify->[$i] ? : |
|
489
|
130 |
10 |
$right_justify->[$i] ? : |
|
521
|
14 |
0 |
defined $names->[$i] ? : |
|
545
|
12 |
128 |
if (length $_ > $widths->[$i]) |
|
567
|
13 |
1 |
$right_justify->[$i] ? : |