| line |
true |
false |
branch |
|
43
|
0 |
18 |
unless $d |
|
55
|
18 |
91 |
unless (defined $next) |
|
61
|
55 |
36 |
if $next ne '.' and $next ne '..' |
|
90
|
1 |
16 |
if (@dir_queue == 0) |
|
104
|
16 |
24 |
if (-d $next and not -l $next) |
|
138
|
9 |
1 |
if (@_) |
|
140
|
2 |
5 |
if ($_[0] eq 'chomp' or $_[0] eq 'nochomp' or not defined $_[0]) |
|
143
|
4 |
0 |
if (defined $chomp_opt) |
|
145
|
0 |
4 |
if $chomp_opt ne 'chomp' and $chomp_opt ne 'nochomp' |
|
152
|
2 |
2 |
if (@_) |
|
161
|
5 |
5 |
if (@_) |
|
163
|
1 |
4 |
if ref $_[0] ne 'HASH' |
|
171
|
4 |
3 |
if ($lcopt eq 'chomp') |
|
176
|
2 |
0 |
if ($lcopt eq 'rs' or $lcopt eq '$/' or $lcopt eq 'input_record_separator') |
|
190
|
0 |
9 |
unless $fh |
|
200
|
25 |
20 |
$sep_defined ? : |
|
202
|
24 |
21 |
if defined $line and $autochomp |
|
206
|
9 |
36 |
unless (defined $line) |
|
243
|
9 |
1 |
if (@_) |
|
245
|
2 |
5 |
if ($_[0] eq 'chomp' or $_[0] eq 'nochomp' or not defined $_[0]) |
|
248
|
4 |
0 |
if (defined $chomp_opt) |
|
250
|
0 |
4 |
if $chomp_opt ne 'chomp' and $chomp_opt ne 'nochomp' |
|
257
|
2 |
2 |
if (@_) |
|
266
|
5 |
5 |
if (@_) |
|
268
|
1 |
4 |
if ref $_[0] ne 'HASH' |
|
276
|
4 |
3 |
if ($lcopt eq 'chomp') |
|
281
|
2 |
0 |
if ($lcopt eq 'rs' or $lcopt eq '$/' or $lcopt eq 'input_record_separator') |
|
296
|
0 |
9 |
unless my $fh = 'IO::File'->new($filename) |
|
310
|
0 |
9 |
if defined $leftover |
|
313
|
5 |
4 |
$sep_defined ? : |
|
325
|
0 |
9 |
unless $seek_ok |
|
331
|
0 |
9 |
unless defined $num_read |
|
337
|
0 |
9 |
unless $seek_ok |
|
350
|
18 |
27 |
if (@lines == 0) |
|
352
|
18 |
0 |
if (&$at_start()) { } |
|
367
|
9 |
36 |
unless defined $line |
|
370
|
20 |
16 |
$sep_defined ? : |
|
371
|
24 |
12 |
if $autochomp |