| line |
true |
false |
branch |
|
34
|
0 |
66 |
unless opendir DIR, "$dir/DBI/Format" |
|
35
|
132 |
132 |
/^(\w+)\.pm$/i ? : |
|
46
|
22 |
0 |
if ($use_abbrev) |
|
61
|
0 |
22 |
unless ($fmt) |
|
70
|
2 |
20 |
if ($@ and $@ =~ /locate/) { } |
|
|
0 |
20 |
elsif ($@) { } |
|
72
|
0 |
2 |
if $@ |
|
74
|
0 |
0 |
if $@ |
|
92
|
22 |
20 |
@_ == 1 ? : |
|
107
|
52 |
1 |
if defined $sep |
|
115
|
259 |
0 |
unless $t == &SQL_BOOLEAN() |
|
144
|
0 |
2315 |
unless defined $_ |
|
169
|
18 |
2297 |
unless (defined $value) |
|
174
|
0 |
2315 |
if ($sql_type == &SQL_BOOLEAN()) |
|
175
|
0 |
0 |
$value ? : |
|
184
|
509 |
0 |
wantarray ? : |
|
197
|
0 |
0 |
if not $fh and $self->{'fh'} |
|
201
|
52 |
1 |
if ref($fh) =~ /GLOB/ |
|
203
|
0 |
1 |
unless (UNIVERSAL::can($fh, 'print')) |
|
224
|
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) ? : |
|
273
|
14 |
0 |
defined $names->[$i] ? : |
|
297
|
12 |
128 |
if (length $_ > $widths->[$i]) |
|
320
|
13 |
1 |
$right_justify->[$i] ? : |
|
355
|
0 |
0 |
defined $names->[$i] ? : |
|
378
|
0 |
0 |
if (length $_ > $widths->[$i]) |
|
401
|
0 |
0 |
$right_justify->[$i] ? : |
|
488
|
130 |
10 |
$right_justify->[$i] ? : |
|
520
|
14 |
0 |
defined $names->[$i] ? : |
|
544
|
12 |
128 |
if (length $_ > $widths->[$i]) |
|
566
|
13 |
1 |
$right_justify->[$i] ? : |