| line |
true |
false |
branch |
|
104
|
0 |
122 |
unless my(@dirs) = @_ |
|
106
|
33 |
89 |
if ($file =~ m[/]) |
|
107
|
0 |
33 |
if @dirs |
|
146
|
118 |
396 |
$dir->is_cwd ? : |
|
235
|
1 |
74 |
unless my $fh = 'IO::File'->new($self, @_) |
|
236
|
0 |
74 |
if -d $fh |
|
257
|
0 |
0 |
unless my $x = 'Fcntl'->can($word) |
|
262
|
0 |
0 |
unless CORE::sysopen $fh, "$self", $m, $perms || 438 |
|
294
|
0 |
0 |
unless my $pid = CORE::open(my $fh, '-|', @command) |
|
323
|
0 |
0 |
if (defined wantarray) { } |
|
327
|
0 |
0 |
unless my $pid = CORE::open($fh, '-|', @command) |
|
333
|
0 |
0 |
$ret < 0 ? : |
|
|
0 |
0 |
if $ret |
|
347
|
0 |
68 |
if (-e $self) { } |
|
369
|
0 |
0 |
unless POSIX::mkfifo("$self", $mode) |
|
383
|
0 |
1 |
unless CORE::link $self, $name |
|
408
|
0 |
4 |
unless CORE::symlink $self, $name |
|
425
|
0 |
15 |
unless CORE::unlink "$self" |
|
440
|
0 |
0 |
unless $self->w |
|
453
|
2 |
2 |
unless defined $name |
|
481
|
0 |
3 |
if ($has_slurp > 0) { } |
|
486
|
0 |
3 |
if @args |
|
489
|
1 |
2 |
wantarray ? : |
|
514
|
0 |
0 |
if ($has_slurp > 0) { } |
|
522
|
0 |
0 |
if @args or ref $content |
|
526
|
0 |
0 |
unless close $fh |
|
553
|
0 |
0 |
if (-d $dest) { } |
|
557
|
0 |
0 |
unless ref $dest |
|
559
|
0 |
0 |
if ($dest->e) |
|
560
|
0 |
0 |
if $self->is_same($dest) |
|
571
|
0 |
0 |
unless defined(my $r = sysread($ifh, $buf, 1024)) |
|
573
|
0 |
0 |
unless $r |
|
576
|
0 |
0 |
unless $t = syswrite($ofh, $buf, $r - $w, $w) |
|
580
|
0 |
0 |
unless close $ofh |