| line |
true |
false |
branch |
|
27
|
0 |
12 |
unless ref $self
|
|
29
|
11 |
1 |
if (@_) { }
|
|
30
|
0 |
11 |
ref $_[0] ? :
|
|
31
|
1 |
10 |
unless defined $$bufref
|
|
47
|
1 |
3 |
if @_
|
|
48
|
3 |
1 |
unless defined $old and length $old
|
|
63
|
0 |
12 |
if $IO::String::DEBUG
|
|
64
|
12 |
0 |
if ref $_[0]
|
|
73
|
0 |
3 |
if $IO::String::DEBUG
|
|
82
|
0 |
5 |
if $] eq '5.008'
|
|
95
|
0 |
0 |
unless @_
|
|
104
|
94 |
4 |
if $self->read($buf, 1)
|
|
124
|
2 |
5 |
if (defined $\) { }
|
|
125
|
1 |
1 |
if (defined $,) { }
|
|
133
|
0 |
5 |
if (defined $,) { }
|
|
147
|
0 |
6 |
if $IO::String::DEBUG
|
|
158
|
0 |
2 |
if ($IO::String::IO_CONSTANTS) { }
|
|
179
|
2 |
16 |
unless defined $SEEK_SET
|
|
181
|
3 |
15 |
if ($whence == $SEEK_SET) { }
|
|
|
13 |
2 |
elsif ($whence == $SEEK_CUR) { }
|
|
|
2 |
0 |
elsif ($whence == $SEEK_END) { }
|
|
185
|
0 |
18 |
if $IO::String::DEBUG
|
|
187
|
0 |
18 |
if $pos < 0
|
|
188
|
1 |
17 |
if $pos > $len
|
|
197
|
14 |
35 |
if (@_)
|
|
200
|
14 |
0 |
$buf ? :
|
|
201
|
1 |
13 |
if $pos > $len
|
|
221
|
10 |
22 |
if $pos >= $len
|
|
223
|
2 |
20 |
unless (defined $/)
|
|
228
|
7 |
13 |
unless (length $/)
|
|
234
|
28 |
66 |
if ($c eq "\n") { }
|
|
|
4 |
62 |
elsif ($eol > 1) { }
|
|
236
|
7 |
21 |
if $eol > 2
|
|
251
|
6 |
7 |
if ($idx < 0)
|
|
265
|
0 |
4 |
unless wantarray
|
|
274
|
2 |
14 |
if wantarray
|
|
282
|
0 |
1 |
if @_
|
|
291
|
2 |
3 |
if (length $$buf >= $len) { }
|
|
293
|
2 |
0 |
if $len < *$self->{'pos'}
|
|
305
|
0 |
110 |
unless $buf
|
|
310
|
11 |
99 |
if $len > $rem
|
|
311
|
2 |
108 |
if $len < 0
|
|
312
|
1 |
107 |
if (@_ > 2) { }
|
|
326
|
0 |
18 |
unless $buf
|
|
332
|
4 |
14 |
if (@_ > 1)
|
|
333
|
0 |
4 |
if $_[1] < $len
|
|
334
|
2 |
2 |
if (@_ > 2)
|
|
336
|
0 |
2 |
if $off > $slen
|
|
337
|
1 |
1 |
if ($off < 0)
|
|
339
|
0 |
1 |
if $off < 0
|
|
342
|
2 |
0 |
if $rem < $len
|
|
356
|
0 |
0 |
unless $self->opened
|
|
357
|
0 |
0 |
unless wantarray
|
|
383
|
0 |
0 |
if @_
|