| line |
true |
false |
branch |
|
102
|
1 |
18 |
if ref $source ne '' and &reftype($source) ne 'GLOB' and &reftype($source) ne 'SCALAR' |
|
112
|
30 |
41 |
if $self->{'ifh'} and not $self->{'ifh'}->eof |
|
115
|
20 |
22 |
if ($self->{'ifh'}) |
|
116
|
3 |
17 |
if (exists $self->{'initial_position'}) |
|
124
|
21 |
21 |
unless @{$self->{'sources'};} |
|
127
|
4 |
17 |
if ((&reftype($source) // '') eq 'GLOB') { } |
|
|
17 |
0 |
elsif (ref $source eq '' or &reftype($source) eq 'SCALAR') { } |
|
132
|
0 |
17 |
unless open my $ifh, '<', $source |
|
139
|
20 |
21 |
if ($self->{'ifh'}) { } |
|
152
|
6 |
42 |
if (wantarray) { } |
|
158
|
10 |
32 |
if $self->EOF |
|
164
|
16 |
16 |
if ($ifh->eof) |
|
169
|
16 |
0 |
if ($ifh->eof) |
|
170
|
8 |
8 |
if $self->EOF |
|
186
|
1 |
9 |
if $self->EOF |
|
193
|
2 |
1 |
if $self->EOF |
|
206
|
1 |
0 |
$n ? : |
|
211
|
0 |
11 |
if ($self->{'ifh'}) |
|
212
|
0 |
0 |
if (exists $self->{'initial_position'}) |