line |
true |
false |
branch |
228
|
0 |
3528 |
unless ref $self |
230
|
6 |
3522 |
unless my $mode = shift() |
231
|
2893 |
629 |
if ($mode eq '<') { } |
|
621 |
8 |
elsif ($mode eq '>') { } |
239
|
4 |
3510 |
unless my $code = shift() |
240
|
2 |
3508 |
unless ref $code eq 'CODE' |
248
|
2829 |
679 |
if (@_) { } |
259
|
8 |
35 |
unless defined *$self->{'Code'} |
260
|
1 |
34 |
if *$self->{'Err'} |
261
|
25 |
9 |
if (*$self->{'W'}) |
263
|
1 |
24 |
if ($ret and ref $ret eq 'IO::Callback::ErrorMarker') |
272
|
0 |
33 |
if $] eq '5.008' |
285
|
4 |
25 |
unless *$self->{'R'} |
287
|
2 |
23 |
if $self->read($buf, 1) |
294
|
1 |
1 |
unless *$self->{'R'} |
318
|
0 |
3613 |
unless *$self->{'Code'} |
320
|
3567 |
46 |
if (defined $newbit) |
321
|
9 |
3558 |
if (ref $newbit) |
322
|
8 |
1 |
if (ref $newbit eq 'IO::Callback::ErrorMarker') { } |
329
|
2557 |
1001 |
if (length $newbit) |
344
|
2 |
69 |
unless *$self->{'R'} |
345
|
32 |
37 |
if *$self->{'Eof'} or *$self->{'Err'} |
349
|
4 |
33 |
unless (defined $/) |
351
|
2 |
2 |
if *$self->{'Err'} |
359
|
24 |
9 |
length $/ ? : |
362
|
0 |
66 |
if ($/ eq '' and $$buf =~ s/^(\n+)//) |
366
|
19 |
47 |
if ($pos >= 0) |
369
|
6 |
13 |
unless (length $/) |
371
|
2 |
4 |
if $$buf =~ s/^(\n+)// |
374
|
0 |
2 |
if *$self->{'Err'} |
375
|
0 |
2 |
if $$buf =~ s/^(\n+)// |
379
|
5 |
14 |
if (length $$buf == 0 and not *$self->{'Code'}) |
385
|
37 |
10 |
if (*$self->{'Code'}) { } |
387
|
4 |
33 |
if *$self->{'Err'} |
393
|
10 |
0 |
if length $$buf |
394
|
10 |
0 |
if length $$buf |
402
|
1 |
32 |
unless wantarray |
405
|
2 |
30 |
unless *$self->{'R'} |
406
|
19 |
11 |
if *$self->{'Err'} or *$self->{'Eof'} |
412
|
11 |
0 |
unless (length $$buf) |
414
|
0 |
11 |
unless length $$buf |
424
|
28 |
37 |
if wantarray |
432
|
5 |
3823 |
unless *$self->{'R'} |
435
|
400 |
3423 |
if $len < 0 |
436
|
0 |
3423 |
if *$self->{'Err'} |
437
|
2 |
3421 |
if *$self->{'Eof'} |
441
|
2 |
3418 |
if *$self->{'Err'} |
442
|
1035 |
2383 |
if ($len > length $$buf) |
444
|
428 |
607 |
unless $len |
447
|
2281 |
1137 |
if (@_ > 2) { } |
449
|
480 |
1801 |
if ($offset < -1 * length($_[0])) |
452
|
480 |
1321 |
if ($offset > length $_[0]) |
469
|
0 |
0 |
unless $self->opened |
470
|
0 |
0 |
unless wantarray |
486
|
2 |
52 |
if (defined $\) { } |
487
|
1 |
1 |
if (defined $,) { } |
495
|
0 |
52 |
if (defined $,) { } |
503
|
30 |
24 |
unless defined $result |
513
|
48 |
14 |
unless defined $result |
547
|
23 |
706 |
unless *$self->{'W'} |
548
|
81 |
625 |
if *$self->{'Err'} |
553
|
573 |
52 |
if (@_ > 1) |
554
|
497 |
76 |
defined $_[1] ? : |
555
|
258 |
315 |
if $xlen < $len |
556
|
80 |
493 |
if $len < 0 |
557
|
460 |
33 |
if (@_ > 2) |
559
|
120 |
36 |
if ($off >= $slen and $off > 0 and $] < 5.011 || $off > $slen) |
562
|
193 |
147 |
if ($off < 0) |
564
|
120 |
73 |
if $off < 0 |
567
|
58 |
162 |
if $rem < $len |
570
|
117 |
188 |
if $len == 0 |
572
|
12 |
176 |
if (defined $ret and ref $ret eq 'IO::Callback::ErrorMarker') |