| line |
true |
false |
branch |
|
33
|
285 |
2310 |
if @_ |
|
34
|
73 |
289 |
ref $default eq 'CODE' ? : |
|
41
|
94 |
0 |
if "5.005" <= $] |
|
46
|
0 |
94 |
if &in_global_destruction() |
|
61
|
0 |
0 |
if @{$self->_buffer_in;} |
|
71
|
0 |
86 |
unless $self->write($buf, length $buf) |
|
77
|
0 |
0 |
((shift())->read($c, 1) // 0) == 1 ? : |
|
81
|
322 |
0 |
unless XXX |
|
84
|
56 |
266 |
unless $self->_mode |
|
86
|
0 |
322 |
unless my $fh = $self->_fh |
|
87
|
0 |
322 |
if defined $len and $len == 0 |
|
90
|
256 |
66 |
if (not $append) { } |
|
|
11 |
55 |
elsif (not defined $$out) { } |
|
91
|
256 |
0 |
if (not $offset) { } |
|
95
|
0 |
0 |
if (length $$out < $offset) { } |
|
112
|
66 |
0 |
unless ($len or $offset) |
|
113
|
0 |
66 |
if (@$buffer) { } |
|
115
|
0 |
0 |
if ($append) { } |
|
124
|
11 |
55 |
unless my $fill = $self->_FILL($fh) |
|
125
|
55 |
0 |
if ($append) { } |
|
137
|
108 |
52 |
if empty($fill) |
|
146
|
134 |
49 |
if ($wanted < length $read) { } |
|
164
|
38 |
78 |
unless $self->_mode |
|
183
|
11 |
0 |
if (not defined $/) { } |
|
|
0 |
0 |
elsif (XXX and ${$/;} =~ /^\d+$/ and 0 < ${$/;}) { } |
|
|
0 |
0 |
elsif (length $/ == 0) { } |
|
204
|
0 |
0 |
unless wantarray |
|
283
|
94 |
0 |
if XXX |
|
292
|
0 |
11 |
if wantarray |