| line |
true |
false |
branch |
|
35
|
0 |
1 |
ref $proto ? : |
|
44
|
0 |
1 |
if $DEBUG >= 2 |
|
59
|
0 |
1 |
unless -f $s_file |
|
60
|
0 |
1 |
unless -r _ |
|
61
|
0 |
1 |
unless -s _ |
|
80
|
0 |
1 |
unless my $FH = 'FileHandle'->new($s_file) |
|
81
|
0 |
1 |
if $DEBUG |
|
96
|
0 |
26 |
if $DEBUG >= 2 |
|
97
|
25 |
1 |
if ($$self{'_header'}) { } |
|
99
|
4 |
21 |
if ($RECURSE or not $$e{'_child'}) |
|
106
|
0 |
1 |
if $release =~ /Oracle[678]/ |
|
109
|
0 |
1 |
if $DEBUG >= 1 |
|
111
|
1 |
0 |
$$self{'_header'} ? : |
|
135
|
4 |
3 |
if (keys %crit) { } |
|
140
|
12 |
4 |
if $i_vals |
|
180
|
1 |
0 |
if ($type eq 'string') { } |
|
|
0 |
0 |
elsif ($type eq 'html') { } |
|
226
|
0 |
4 |
if ($EXTENDED) |
|
236
|
0 |
4 |
if $i_rep >= 10 |