Branch Coverage

blib/lib/Venus/Path.pm
Criterion Covered Total %
branch 72 96 75.0


line true false branch
97 27 1 wantarray ? :
105 0 1 unless File::Copy::copy("$self", "$path")
122 19 1 wantarray ? :
144 2 2 unless $value
152 1 2 unless $expr
154 3 0 if ref $expr ne "Regexp"
161 0 42 $_->is_directory ? :
165 0 3 wantarray ? :
173 0 1 wantarray ? :
186 58 1 wantarray ? :
224 0 2 $binmode ? :
238 7 1 wantarray ? :
250 2 10 unless $handle->open($path, @args)
269 6 1 $args ? :
1 6 unless defined($result = $args ? `$path $args` : `$path`)
279 5 1 wantarray ? :
287 0 10 $mode ? :
2 8 unless $mode ? CORE::mkdir($path, $mode) : CORE::mkdir($path)
302 0 4 $self->is_file ? :
306 7 5 if ($path->exists) { }
314 0 4 wantarray ? :
338 1 8 if $self->exists
342 0 7 unless utime undef, undef, $path
353 0 3 unless File::Copy::move("$self", "$path")
374 7 0 defined $path ? :
382 5 0 if @paths
384 4 1 wantarray ? :
400 1 7207 unless CORE::open my $handle, "<", $path
403 0 7207 if defined $binmode
418 0 7207 unless defined $result
421 4 7203 if "Venus::Os"->is_win
441 2 0 if $path->is_relative
451 0 4 unless CORE::rmdir $path
463 0 1 if ($path->is_file) { }
473 1 1 wantarray ? :
482 5 0 if ($path->is_file) { }
490 0 1 wantarray ? :
499 1 11 if ($path->child($base)->test($spec))
505 0 1 -f $paths[0] ? :
1 1 @paths ? :
511 1 19 if ((my $path = $self->child($base))->test($spec)) { }
517 2 16 if $sought
542 0 1 wantarray ? :
558 1 10 unless CORE::unlink $path
569 1 2 unless CORE::open my $handle, ">", $path
572 0 2 if defined $binmode
581 0 2 unless ($handle->syswrite($data) // -1) == length $data
616 1 1 $error ? :