| line |
true |
false |
branch |
|
9
|
26 |
0 |
$_[0] eq 'Tie::FileSection' ? : |
|
11
|
0 |
14 |
unless $opts{'filename'} or $opts{'file'} |
|
16
|
12 |
14 |
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 |
44 |
if ($f < 0 and $l < 0 and $l < $f) |
|
55
|
16 |
92 |
if ($f < 0 and $l > 0) |
|
59
|
6 |
54 |
if ($self->{'init'} and 0 <= $l and $l >= $self->{'curr_line'}) |
|
63
|
32 |
54 |
if (eof $self->{'handle'}) |
|
65
|
12 |
20 |
if ($l < 0 and scalar @{$self->{'line_buffer'};} < abs $l) { } |
|
70
|
8 |
12 |
if @{$self->{'line_buffer'};} |
|
80
|
12 |
16 |
unless $self->{'use_buffer'} |
|
90
|
26 |
34 |
unless ($self->{'init'}++) |
|
92
|
10 |
16 |
if ($f > 0) { } |
|
|
12 |
4 |
elsif ($f < 0) { } |
|
111
|
4 |
22 |
if ($f > 0 and $l < 0) |
|
118
|
12 |
14 |
if (eof $fh) |
|
122
|
1 |
25 |
if $self->{'use_real_line_nr'} |
|
128
|
24 |
36 |
$eof ? : |
|
129
|
32 |
28 |
if ($self->{'use_buffer'}) |
|
130
|
24 |
8 |
$eof ? : |
|
138
|
32 |
0 |
unless @$tellbuff == 1 |
|
147
|
24 |
72 |
if $self->EOF |
|
148
|
60 |
12 |
unless (wantarray) |