| 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 |