| line |
true |
false |
branch |
|
10
|
28 |
0 |
$_[0] eq 'Tie::FileSection' ? : |
|
12
|
0 |
16 |
unless $opts{'filename'} or $opts{'file'} |
|
17
|
12 |
16 |
if (not $FH and defined $opts{'filename'}) |
|
18
|
0 |
12 |
unless open $FH, '<', $opts{'filename'} |
|
49
|
0 |
64 |
if ($f >= 0 and $l > 0 and $f > $l) |
|
52
|
0 |
47 |
if ($f < 0 and $l < 0 and $l < $f) |
|
56
|
16 |
95 |
if ($f < 0 and $l > 0) |
|
60
|
6 |
55 |
if ($self->{'init'} and 0 <= $l and $l >= $self->{'curr_line'}) |
|
64
|
33 |
56 |
if (eof $self->{'handle'}) |
|
66
|
12 |
21 |
if ($l < 0 and scalar @{$self->{'line_buffer'};} < abs $l) { } |
|
71
|
9 |
12 |
if @{$self->{'line_buffer'};} |
|
82
|
12 |
16 |
unless $self->{'use_buffer'} |
|
92
|
28 |
35 |
unless ($self->{'init'}++) |
|
94
|
10 |
18 |
if ($f > 0) { } |
|
|
14 |
4 |
elsif ($f < 0) { } |
|
113
|
4 |
24 |
if ($f > 0 and $l < 0) |
|
120
|
14 |
14 |
if (eof $fh) |
|
124
|
3 |
25 |
if ($self->{'use_real_line_nr'}) { } |
|
125
|
2 |
1 |
if $self->{'use_buffer'} |
|
135
|
27 |
36 |
$eof ? : |
|
136
|
35 |
28 |
if ($self->{'use_buffer'}) |
|
137
|
27 |
8 |
$eof ? : |
|
145
|
35 |
0 |
unless @$tellbuff == 1 |
|
154
|
24 |
75 |
if $self->EOF |
|
155
|
63 |
12 |
unless (wantarray) |