| line |
true |
false |
branch |
|
43
|
0 |
1 |
unless my $fh = 'IO::File'->new($file) |
|
55
|
0 |
1 |
unless my $src = 'Data::LineBuffer'->new($what) |
|
60
|
1 |
0 |
if (exists $$header{'_TOP'}{'min,max,bins'}) |
|
76
|
0 |
14 |
unless my $fh = 'IO::File'->new($file) |
|
89
|
0 |
14 |
unless my $src = 'Data::LineBuffer'->new($what) |
|
98
|
14 |
26 |
unless %{$results{'hdr'};} |
|
105
|
10 |
16 |
if (grep {'upto' eq $_;} @{$$table{'names'};}) { } |
|
117
|
0 |
10 |
unless grep {'reg' eq $_;} @{$results{'bkgd_sub'}{'table'}{'names'};} |
|
128
|
0 |
16 |
unless grep {'reg' eq $_;} @{$$table{'names'};} |
|
141
|
24 |
2 |
if (%$regions) |
|
143
|
20 |
4 |
if (@{$$regions{'regions'};}) |
|
154
|
14 |
0 |
wantarray ? : |
|
165
|
10 |
0 |
if /^\f$/ |
|
181
|
2 |
98 |
if /^\f$/ |
|
182
|
52 |
46 |
unless /^#\s+(.*)$/ |
|
184
|
0 |
46 |
unless $_ |
|
191
|
46 |
227 |
unless /^#\s+(.*)$/ |
|
211
|
27 |
275 |
unless /^\#/ |
|
212
|
197 |
78 |
if (/:/) { } |
|
214
|
0 |
197 |
unless defined $key |
|
252
|
10 |
248 |
if /^\s*$/ |
|
254
|
83 |
165 |
if /^-+/ |
|
256
|
82 |
83 |
if (/^\#(.*)$/) { } |
|
263
|
0 |
83 |
if @names |
|
272
|
0 |
83 |
unless defined $_ |
|
276
|
0 |
83 |
if @names != @widths |
|
283
|
83 |
0 |
unless /^\s*$/ |
|
288
|
82 |
448 |
if /^\s*$/ |
|
292
|
0 |
448 |
unless (@data == @names) |