| line |
true |
false |
branch |
|
123
|
15 |
0 |
if ref $_[0] |
|
152
|
20 |
25 |
if (defined $field) { } |
|
205
|
1 |
24 |
unless defined $source |
|
206
|
13 |
11 |
if (ref $source) |
|
207
|
2 |
11 |
if (&reftype($source) eq 'GLOB') |
|
209
|
0 |
2 |
defined $s ? : |
|
211
|
11 |
0 |
if (&reftype($source) eq 'SCALAR') |
|
251
|
3 |
6 |
if (@_ >= 3) { } |
|
252
|
1 |
2 |
unless ($href) |
|
259
|
2 |
4 |
unless $href |
|
331
|
0 |
26 |
if (@_) |
|
352
|
1 |
18 |
if ref $source ne '' and &reftype($source) ne 'GLOB' and &reftype($source) ne 'SCALAR' |
|
396
|
1 |
0 |
if ($href) |
|
414
|
0 |
1 |
unless ($href) |
|
426
|
68 |
58 |
if $ifh and not $ifh->eof |
|
429
|
20 |
39 |
if ($self->_get('ifh')) |
|
433
|
38 |
21 |
unless $sources_lref and @{$sources_lref;} |
|
436
|
4 |
17 |
if ((&reftype($source) // '') eq 'GLOB') { } |
|
|
17 |
0 |
elsif (ref $source eq '' or &reftype($source) eq 'SCALAR') { } |
|
444
|
0 |
17 |
unless CORE::open my $ifh, '<', $source |
|
453
|
20 |
38 |
if ($self->_get('ifh')) { } |
|
465
|
5 |
42 |
if (wantarray) { } |
|
472
|
10 |
32 |
if ($self->EOF) |
|
481
|
16 |
16 |
if ($ifh->eof) |
|
487
|
16 |
0 |
if ($ifh->eof) |
|
488
|
8 |
8 |
if $self->EOF |
|
496
|
32 |
0 |
if (defined $line) |
|
516
|
0 |
11 |
if ($offset < 0) |
|
518
|
0 |
0 |
if ($offset < 0) |
|
524
|
6 |
5 |
if ($offset < $l) { } |
|
|
0 |
5 |
elsif ($offset > $l) { } |
|
535
|
2 |
9 |
if ($self->EOF) |
|
544
|
2 |
1 |
if $self->EOF |
|
558
|
1 |
0 |
$n ? : |
|
563
|
0 |
0 |
if ($self->{'ifh'}) |