| line |
true |
false |
branch |
|
30
|
13 |
47 |
if $self->[1] > $#{$$self[0]{'segments'};} |
|
32
|
0 |
60 |
if $self->[2] and tied $self->[2] |
|
53
|
15 |
62 |
unless ($self->[0]{'segments'}[1 + $self->[1]]) |
|
65
|
5 |
52 |
if $self->[1] > $#{$$self[0]{'segments'};} |
|
67
|
4 |
48 |
if (not defined $/) { } |
|
|
10 |
38 |
elsif (ref $/) { } |
|
|
11 |
27 |
elsif ($/ eq '') { } |
|
69
|
2 |
2 |
unless defined $data |
|
71
|
3 |
1 |
length $data ? : |
|
76
|
3 |
7 |
unless defined $rec |
|
79
|
1 |
8 |
unless $self->_next_segment |
|
82
|
9 |
1 |
length $rec ? : |
|
92
|
6 |
5 |
if (eof $self->[2]) |
|
98
|
3 |
3 |
defined $ch ? : |
|
100
|
10 |
1 |
length $para ? : |
|
109
|
22 |
27 |
if (length $/ > 1) |
|
116
|
1 |
38 |
unless $count |
|
118
|
4 |
34 |
if $/ eq substr($line, -length($/)) |
|
126
|
1 |
21 |
unless length $line |
|
138
|
2 |
68 |
if $self->[1] > $#{$$self[0]{'segments'};} |
|
143
|
0 |
99 |
unless defined $count |
|
147
|
21 |
47 |
unless defined $_[0] |
|
148
|
1 |
67 |
if $offset > length $_[0] |
|
157
|
4 |
18 |
unless $self->READ($ch, 1) |
|
164
|
13 |
2 |
if $self->[1] > $#{$$self[0]{'segments'};} |
|
165
|
1 |
1 |
if $self->[1] < $#{$$self[0]{'segments'};} |
|
178
|
8 |
4 |
if ($whence == 0) { } |
|
|
1 |
3 |
elsif ($whence == 1) { } |
|
|
2 |
1 |
elsif ($whence == 2) { } |
|
191
|
4 |
7 |
if ($npos >= $segments->[-1][2] + $segments->[-1][1]) |
|
199
|
6 |
17 |
if $npos >= $segments->[$i][2] and $npos < $segments->[$i][2] + $segments->[$i][1] |
|
205
|
1 |
6 |
unless $new_segment |
|
219
|
12 |
3 |
if $self->[1] <= $#{$segments;} |