| line |
true |
false |
branch |
|
24
|
19 |
15 |
if (keys %user_cb == 1) |
|
28
|
15 |
27 |
if (my $cb = $user_cb{$fallback}) |
|
43
|
4 |
66 |
if (exists $user_cb{$fallback}) |
|
49
|
15 |
4 |
if (exists $user_cb{'getline'}) |
|
53
|
15 |
4 |
if (exists $user_cb{'read'}) |
|
76
|
0 |
0 |
if @args |
|
92
|
0 |
0 |
if (exists $self->{'buf'}) { } |
|
97
|
0 |
0 |
unless (defined $ret) |
|
107
|
5 |
60 |
if $self->{'eof'} |
|
109
|
5 |
55 |
if (ref $/) { } |
|
|
50 |
5 |
elsif (defined $/) { } |
|
114
|
45 |
129 |
if (defined $self->{'buf'} and (my $off = index($self->{'buf'}, $/)) > -1) { } |
|
117
|
124 |
5 |
if (defined(my $chunk = $self->$read)) { } |
|
123
|
0 |
5 |
if (length(my $buf = delete $self->{'buf'})) { } |
|
146
|
0 |
35 |
if $self->{'eof'} |
|
148
|
0 |
35 |
if ($offset and length $_[1] < $offset) |
|
153
|
53 |
5 |
if (defined(my $next = $self->$read)) { } |
|
160
|
0 |
5 |
if ($offset) { } |
|
172
|
0 |
30 |
if ($length > length $self->{'buf'}) { } |
|
178
|
5 |
25 |
if ($offset) { } |
|
212
|
0 |
6 |
ref $/ ? : |
|
|
3 |
3 |
if ($self->$read(my $buf, ref $/ ? ${$/;} : 4096)) { } |
|
224
|
11 |
95 |
ref $/ ? : |
|
240
|
10 |
0 |
if ($self->read(my $str, 1)) { } |
|
285
|
8 |
2 |
defined $, ? : |
|
286
|
8 |
2 |
defined $\ ? : |
|
292
|
2 |
2 |
unless defined $len |