Branch Coverage

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


line true false branch
99 28 1 wantarray ? :
107 0 1 unless File::Copy::copy("$self", "$path")
124 20 1 wantarray ? :
146 2 2 unless $value
154 1 2 unless $expr
156 3 0 if ref $expr ne "Regexp"
163 0 42 $_->is_directory ? :
167 0 3 wantarray ? :
175 0 1 wantarray ? :
188 60 1 wantarray ? :
226 0 2 $binmode ? :
240 7 1 wantarray ? :
252 2 10 unless $handle->open($path, @args)
271 6 1 $args ? :
1 6 unless defined($result = $args ? `$path $args` : `$path`)
281 5 1 wantarray ? :
289 0 10 $mode ? :
2 8 unless $mode ? CORE::mkdir($path, $mode) : CORE::mkdir($path)
304 0 4 $self->is_file ? :
308 9 5 if ($path->exists) { }
316 0 4 wantarray ? :
340 1 8 if $self->exists
344 0 7 unless utime undef, undef, $path
355 0 3 unless File::Copy::move("$self", "$path")
376 7 0 defined $path ? :
384 5 0 if @paths
386 4 1 wantarray ? :
402 1 7584 unless CORE::open my $handle, "<", $path
405 0 7584 if defined $binmode
420 0 7584 unless defined $result
423 4 7580 if "Venus::Os"->is_win
443 2 0 if $path->is_relative
453 0 4 unless CORE::rmdir $path
465 0 1 if ($path->is_file) { }
475 1 1 wantarray ? :
484 5 0 if ($path->is_file) { }
492 0 1 wantarray ? :
501 1 11 if ($path->child($base)->test($spec))
507 0 1 -f $paths[0] ? :
1 1 @paths ? :
513 1 20 if ((my $path = $self->child($base))->test($spec)) { }
519 2 17 if $sought
544 0 1 wantarray ? :
560 1 9 unless CORE::unlink $path
571 1 2 unless CORE::open my $handle, ">", $path
574 0 2 if defined $binmode
583 0 2 unless ($handle->syswrite($data) // -1) == length $data
618 1 1 $error ? :