| line |
true |
false |
branch |
|
9
|
28 |
0 |
$_[0] eq 'Tie::FileSection' ? : |
|
11
|
0 |
16 |
unless $opts{'filename'} or $opts{'file'} |
|
16
|
12 |
16 |
if (not $FH and defined $opts{'filename'}) |
|
17
|
0 |
12 |
unless open $FH, '<', $opts{'filename'} |
|
48
|
0 |
64 |
if ($f >= 0 and $l > 0 and $f > $l) |
|
51
|
0 |
47 |
if ($f < 0 and $l < 0 and $l < $f) |
|
55
|
16 |
95 |
if ($f < 0 and $l > 0) |
|
59
|
6 |
55 |
if ($self->{'init'} and 0 <= $l and $l >= $self->{'curr_line'}) |
|
63
|
33 |
56 |
if (eof $self->{'handle'}) |
|
65
|
12 |
21 |
if ($l < 0 and scalar @{$self->{'line_buffer'};} < abs $l) { } |
|
70
|
9 |
12 |
if @{$self->{'line_buffer'};} |
|
81
|
14 |
16 |
unless $self->{'use_buffer'} |
|
91
|
28 |
35 |
unless ($self->{'init'}++) |
|
93
|
10 |
18 |
if ($f > 0) { } |
|
|
14 |
4 |
elsif ($f < 0) { } |
|
112
|
4 |
24 |
if ($f > 0 and $l < 0) |
|
119
|
14 |
14 |
if (eof $fh) |
|
123
|
3 |
25 |
if ($self->{'use_real_line_nr'}) { } |
|
124
|
2 |
1 |
if $self->{'use_buffer'} |
|
134
|
27 |
36 |
$eof ? : |
|
135
|
35 |
28 |
if ($self->{'use_buffer'}) |
|
136
|
27 |
8 |
$eof ? : |
|
144
|
35 |
0 |
unless @$tellbuff == 1 |
|
153
|
24 |
75 |
if $self->EOF |
|
154
|
63 |
12 |
unless (wantarray) |