line |
true |
false |
branch |
30
|
14 |
48 |
if $self->[1] > $#{$$self[0]{'segments'};} |
33
|
0 |
62 |
if $self->[2] and UNIVERSAL::can(tied *{$self->[2];}, '_dbg_dump') |
53
|
16 |
63 |
unless ($self->[0]{'segments'}[1 + $self->[1]]) |
65
|
1 |
62 |
if (wantarray) |
71
|
5 |
57 |
if $self->[1] > $#{$$self[0]{'segments'};} |
73
|
4 |
53 |
if (not defined $/) { } |
|
10 |
43 |
elsif (ref $/) { } |
|
11 |
32 |
elsif ($/ eq '') { } |
75
|
2 |
2 |
unless defined $data |
77
|
3 |
1 |
length $data ? : |
82
|
3 |
7 |
unless defined $rec |
85
|
1 |
8 |
unless $self->_next_segment |
88
|
9 |
1 |
length $rec ? : |
98
|
6 |
5 |
if (eof $self->[2]) |
104
|
3 |
3 |
defined $ch ? : |
106
|
10 |
1 |
length $para ? : |
115
|
22 |
29 |
if (length $/ > 1) |
122
|
1 |
38 |
unless $count |
124
|
4 |
34 |
if $/ eq substr($line, -length($/)) |
132
|
2 |
25 |
unless length $line |
144
|
2 |
68 |
if $self->[1] > $#{$$self[0]{'segments'};} |
149
|
0 |
99 |
unless defined $count |
153
|
21 |
47 |
unless defined $_[0] |
154
|
1 |
67 |
if $offset > length $_[0] |
163
|
4 |
18 |
unless $self->READ($ch, 1) |
170
|
14 |
2 |
if $self->[1] > $#{$$self[0]{'segments'};} |
171
|
1 |
1 |
if $self->[1] < $#{$$self[0]{'segments'};} |
184
|
8 |
4 |
if ($whence == 0) { } |
|
1 |
3 |
elsif ($whence == 1) { } |
|
2 |
1 |
elsif ($whence == 2) { } |
197
|
4 |
7 |
if ($npos >= $segments->[-1][2] + $segments->[-1][1]) |
205
|
6 |
17 |
if $npos >= $segments->[$i][2] and $npos < $segments->[$i][2] + $segments->[$i][1] |
211
|
1 |
6 |
unless $new_segment |
225
|
12 |
3 |
if $self->[1] <= $#{$segments;} |