| line |
true |
false |
branch |
|
321
|
0 |
92 |
if (@_ != 1) |
|
326
|
0 |
0 |
if ($] > "5.013" and $class eq "IO::File" and not $INC{'IO/File.pm'}) |
|
339
|
0 |
3 |
unless @_ == 3 |
|
342
|
0 |
3 |
unless fdopen($io, @_) |
|
362
|
0 |
8 |
unless $mode =~ /^\+?(<|>>?)$/ or $mode =~ s/^r(\+?)$/$1/ or $mode =~ s/^a(\+?)$/$1>>/ |
|
371
|
0 |
10 |
unless @_ == 3 |
|
375
|
7 |
3 |
if (ref $fd and "$fd" =~ /GLOB\(/o) { } |
|
|
3 |
0 |
elsif ($fd =~ /^\d+$/) { } |
|
385
|
10 |
0 |
open($io, _open_mode_string($mode) . '&' . $fd) ? : |
|
390
|
0 |
34 |
unless @_ == 1 |
|
404
|
0 |
0 |
unless @_ == 1 |
|
409
|
0 |
10 |
unless @_ == 1 |
|
414
|
0 |
8200 |
unless @_ == 1 |
|
419
|
0 |
2 |
unless @_ == 1 |
|
424
|
0 |
16 |
unless @_ |
|
430
|
0 |
0 |
unless @_ >= 2 |
|
436
|
0 |
0 |
unless @_ |
|
443
|
0 |
0 |
unless @_ == 2 |
|
448
|
0 |
1 |
unless @_ == 3 or @_ == 4 |
|
453
|
0 |
0 |
unless @_ == 3 or @_ == 4 |
|
458
|
0 |
0 |
unless @_ >= 2 and @_ <= 4 |
|
460
|
0 |
0 |
unless defined $_[2] |
|
465
|
0 |
1 |
unless @_ >= 2 and @_ <= 4 |
|
466
|
0 |
1 |
if (defined $_[2]) { } |
|
474
|
0 |
0 |
unless @_ == 1 |
|
485
|
68 |
0 |
@_ > 1 ? : |
|
490
|
0 |
0 |
if ref $_[0] |
|
493
|
0 |
0 |
if @_ > 1 |
|
498
|
0 |
0 |
if ref $_[0] |
|
501
|
0 |
0 |
if @_ > 1 |
|
506
|
0 |
0 |
if ref $_[0] |
|
509
|
0 |
0 |
if @_ > 1 |
|
515
|
12 |
0 |
if ref $_[0] |
|
517
|
0 |
12 |
if @_ > 1 |
|
523
|
0 |
0 |
if ref $_[0] |
|
525
|
0 |
0 |
if @_ > 1 |
|
531
|
0 |
0 |
if ref $_[0] |
|
533
|
0 |
0 |
if @_ > 1 |
|
539
|
0 |
0 |
if ref $_[0] |
|
541
|
0 |
0 |
if @_ > 1 |
|
547
|
0 |
0 |
if ref $_[0] |
|
549
|
0 |
0 |
if @_ > 1 |
|
555
|
0 |
0 |
if ref $_[0] |
|
557
|
0 |
0 |
if @_ > 1 |
|
562
|
0 |
0 |
if ref $_[0] |
|
565
|
0 |
0 |
if @_ > 1 |
|
570
|
0 |
0 |
if ref $_[0] |
|
573
|
0 |
0 |
if @_ > 1 |
|
587
|
0 |
0 |
unless @_ < 3 |
|
588
|
0 |
0 |
if (@_ == 2) { } |
|
599
|
0 |
0 |
unless @_ == 3 |
|
605
|
0 |
0 |
unless @_ == 3 |
|
620
|
6 |
0 |
$name =~ /^(SEEK_(SET|CUR|END)|_IO[FLN]BF)$/ && defined &{$name;} ? : |
|
629
|
0 |
0 |
if ref $io |
|
631
|
0 |
0 |
if (ref $io) { } |
|
644
|
0 |
1 |
unless @_ == 1 or @_ == 2 |
|
648
|
1 |
0 |
unless $layer |