line |
true |
false |
branch |
27
|
70 |
0 |
defined $_ ? : |
55
|
2 |
3 |
if (UNIVERSAL::isa($thing, 'GLOB')) |
92
|
0 |
4 |
if not ref $_[0] and defined $_[0] and length $_[0] |
93
|
0 |
4 |
unless $mode |
96
|
0 |
4 |
unless (defined $expr) |
97
|
0 |
0 |
if ($mode eq '|-' or $mode eq '-|') |
101
|
0 |
0 |
unless (defined $open) |
112
|
0 |
4 |
unless (my $ok = CORE::open($_[0], $mode, $expr, @list)) |
113
|
0 |
0 |
if ($mode eq '|-' or $mode eq '-|') |
120
|
0 |
0 |
unless (@list) |
127
|
0 |
0 |
if ('SCALAR' eq ref $expr) |
148
|
0 |
0 |
if (@post_handle_args < 3) { } |
157
|
0 |
0 |
unless ($ret) |
169
|
0 |
0 |
unless (defined $filename) |
173
|
0 |
0 |
unless (my $ok = CORE::chroot $filename) |
187
|
4 |
4 |
if (@args) { } |
188
|
1 |
3 |
unless ($ret = CORE::chdir $args[0]) |
189
|
0 |
1 |
if (__is_a_fh($args[0])) { } |
198
|
2 |
2 |
unless ($ret = CORE::chdir) |
201
|
1 |
1 |
unless (defined $path) |
214
|
1 |
1 |
unless (defined $path) |
217
|
0 |
1 |
if (not defined $path and $^O eq 'VMS') |
237
|
0 |
0 |
if (__is_a_fh($$args_ar[0])) { } |
238
|
0 |
0 |
@$args_ar ? : |
241
|
0 |
0 |
@$args_ar ? : |
244
|
0 |
0 |
if ($^E) |
248
|
0 |
0 |
if (@$args_ar) { } |
273
|
0 |
0 |
if (@length_offset > 1) { } |
|
0 |
0 |
elsif (@length_offset) { } |
283
|
0 |
0 |
unless (defined $ret) |
286
|
0 |
0 |
if ($offset) |
287
|
0 |
0 |
if ($offset > 0) { } |
295
|
0 |
0 |
if (defined $length and $length < $real_length) |
325
|
0 |
1 |
if (@length_offset > 1) { } |
332
|
1 |
0 |
unless (defined $ret) |
354
|
0 |
0 |
if (@length_offset > 1) { } |
361
|
0 |
0 |
unless (defined $ret) |
372
|
4 |
2 |
$fh ? : |
|
2 |
4 |
unless (my $ok = $fh ? CORE::close $fh : CORE::close()) |
386
|
0 |
0 |
unless (my $ok = CORE::seek($fh, $pos, $whence)) |
397
|
0 |
0 |
unless (my $ok = CORE::sysseek($fh, $pos, $whence)) |
408
|
0 |
0 |
unless (my $ok = CORE::truncate($fh_or_expr, $length)) |
424
|
0 |
1 |
unless (my $ok = CORE::opendir($_[0], $dir)) |
435
|
0 |
0 |
unless (my $ok = CORE::rewinddir $dh) |
446
|
1 |
1 |
unless (my $ok = CORE::closedir $dh) |
461
|
7 |
0 |
wantarray ? : |
463
|
0 |
7 |
if ($^E) |
464
|
0 |
0 |
if (__is_a_fh($path_or_fh)) |
471
|
7 |
0 |
wantarray ? : |
480
|
0 |
0 |
wantarray ? : |
482
|
0 |
0 |
if ($^E) |
483
|
0 |
0 |
if (__is_a_fh($path_or_fh)) |
490
|
0 |
0 |
wantarray ? : |
501
|
0 |
0 |
unless (defined $fileno) |
512
|
0 |
0 |
unless (my $ok = CORE::flock($fh, $operation)) |
530
|
1 |
4 |
if @too_many_args |
536
|
2 |
2 |
unless (my $ok = CORE::chmod($mode, $target)) |
537
|
0 |
2 |
if (__is_a_fh($target)) |
558
|
1 |
4 |
if @too_many_args |
562
|
2 |
2 |
unless (my $ok = CORE::chown($uid, $gid, $target)) |
563
|
0 |
2 |
if (__is_a_fh($target)) |
588
|
0 |
0 |
unless (my $ok = CORE::symlink($old, $new)) |
597
|
0 |
0 |
@_ ? : |
600
|
0 |
0 |
unless (my $ok = CORE::readlink $path) |
611
|
0 |
0 |
unless (my $ok = CORE::rename($old, $new)) |
629
|
0 |
0 |
if @paths > 1 |
631
|
0 |
0 |
unless (@paths) |
636
|
0 |
0 |
unless (my $ok = CORE::unlink(@paths)) |
649
|
0 |
0 |
if (@args > 1) { } |
653
|
0 |
0 |
unless (@args) |
660
|
0 |
0 |
unless ($ret) |
672
|
0 |
0 |
if @args > 1 |
674
|
0 |
0 |
unless (@args) |
679
|
0 |
0 |
unless (my $ok = CORE::rmdir $args[0]) |
691
|
0 |
0 |
unless defined $pid |
699
|
0 |
0 |
if @list > 1 |
703
|
0 |
0 |
if ($!) |
713
|
0 |
0 |
unless (my $ok = CORE::exec(do {
$progname
} $progname, @args)) |
727
|
0 |
0 |
unless (my $ok = CORE::pipe($_[0], $_[1])) |
739
|
2 |
0 |
unless (defined $layer) |
744
|
1 |
1 |
unless (my $ok = CORE::binmode($fh_r, $layer)) |
760
|
0 |
0 |
if @too_many_args |
763
|
0 |
0 |
unless (my $ok = CORE::utime($atime, $mtime, $target)) |
764
|
0 |
0 |
if (__is_a_fh($target)) |
778
|
0 |
0 |
unless (my $ok = CORE::fcntl($fh, $func, $scalar)) |
789
|
0 |
0 |
if @_ < 4 |
794
|
0 |
0 |
if ($^E) |
798
|
0 |
0 |
wantarray ? : |
810
|
0 |
0 |
unless (my $ok = CORE::socket($_[0], $domain, $type, $protocol)) |
824
|
0 |
0 |
unless (my $ok = CORE::socketpair($_[0], $_[1], $domain, $type, $protocol)) |
835
|
0 |
0 |
unless (my $ok = CORE::bind($socket, $name)) |
846
|
0 |
0 |
unless (my $ok = CORE::connect($socket, $name)) |
860
|
0 |
0 |
unless (my $ok = CORE::accept($_[1], $generic_socket)) |
872
|
0 |
0 |
unless (defined $res) |
884
|
0 |
0 |
unless (defined $res) |
895
|
0 |
0 |
unless (my $ok = CORE::listen($socket, $queuesize)) |
910
|
0 |
0 |
unless (defined $res) |
925
|
0 |
0 |
if (defined $to) { } |
932
|
0 |
0 |
unless (defined $res) |
945
|
0 |
0 |
unless ($res) |
946
|
0 |
0 |
unless defined $res |