| line |
true |
false |
branch |
|
24
|
20 |
15 |
if (keys %user_cb == 1)
|
|
28
|
15 |
30 |
if (my $cb = $user_cb{$fallback})
|
|
43
|
5 |
66 |
if (exists $user_cb{$fallback})
|
|
49
|
15 |
5 |
if (exists $user_cb{'getline'})
|
|
53
|
15 |
5 |
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
|
9 |
5 |
defined $, ? :
|
|
286
|
11 |
3 |
defined $\ ? :
|
|
292
|
2 |
3 |
unless defined $len
|