| line |
true |
false |
branch |
|
24
|
1 |
6 |
unless $self->{'name'} |
|
26
|
1 |
5 |
if (my $fh = delete $self->{'fh'}) |
|
39
|
1 |
1 |
unless -e $self->{'name'} |
|
64
|
140 |
9 |
if $self->{'_fh'} |
|
66
|
2 |
7 |
unless $self->{'_fh'} = Test2::Harness::Util::maybe_open_file($self->{'name'}) |
|
76
|
108 |
36 |
unless defined $pos |
|
78
|
1 |
143 |
unless my $fh = $self->fh |
|
79
|
0 |
143 |
unless seek $fh, $pos, 0 |
|
84
|
2 |
141 |
unless defined $line and length $line |
|
87
|
12 |
129 |
unless $self->{'done'} or substr($line, -1, 1) eq "\n" |
|
90
|
0 |
129 |
if $new_pos == -1 |
|
94
|
103 |
26 |
unless defined $params{'peek'} or defined $params{'from'} |