| line |
true |
false |
branch |
|
92
|
293 |
0 |
if $parms |
|
109
|
205 |
87 |
if (defined(my $int = $$parms{'int'})) { } |
|
|
86 |
1 |
elsif (defined(my $num = $$parms{'num'})) { } |
|
121
|
69 |
220 |
unless ($string) |
|
124
|
36 |
33 |
$datafint == 0 ? : |
|
165
|
1 |
174 |
unless $self->keynum > -1 |
|
215
|
69 |
220 |
unless -e $tocfile |
|
219
|
219 |
1 |
if (my $tocs = $ds->tocs->{$tocfile}) |
|
220
|
219 |
0 |
if (-M _ <= $$tocs{'-M'}) |
|
222
|
218 |
1 |
if defined $_ |
|
231
|
0 |
2 |
if (my $tocmax = $ds->tocmax) { } |
|
238
|
0 |
2 |
unless close $tocfh |
|
266
|
12 |
156 |
if (my $tocmax = $ds->tocmax) { } |
|
275
|
0 |
168 |
unless close $tocfh |
|
301
|
34 |
494 |
if ($tocmax) { } |
|
308
|
2 |
526 |
if length $tocfnum > $fnumlen |
|
311
|
526 |
0 |
if wantarray |
|
331
|
28 |
429 |
$ds->tocmax ? : |
|
334
|
56 |
401 |
if (my $dirlev = $ds->dirlev) { } |
|
341
|
84 |
0 |
$dirmax ? : |
|
343
|
28 |
56 |
$path ? : |
|
347
|
4 |
52 |
unless -d $path |
|
386
|
292 |
1621 |
if @_ > 1 |
|
387
|
220 |
4 |
if @_ > 1 |
|
389
|
373 |
441 |
if @_ > 1 |
|
390
|
442 |
262 |
if @_ > 1 |
|
391
|
373 |
262 |
if @_ > 1 |
|
392
|
457 |
347 |
if @_ > 1 |
|
393
|
442 |
614 |
if @_ > 1 |
|
394
|
457 |
349 |
if @_ > 1 |
|
395
|
427 |
316 |
if @_ > 1 |
|
396
|
303 |
192 |
if @_ > 1 |
|
397
|
303 |
192 |
if @_ > 1 |
|
398
|
305 |
194 |
if @_ > 1 |
|
399
|
305 |
194 |
if @_ > 1 |