Branch Coverage

blib/lib/Sys/Export/Linux.pm
Criterion Covered Total %
branch 3 50 6.0


line true false branch
16 1 0 if ($self->_can_run_in_src)
18 0 1 if ($self->src_abs ne "/")
21 0 0 unless -x $chroot
22 0 0 if $self->{'_log_trace'}
28 1 0 unless -x $strace
29 0 0 if $self->{'_log_trace'}
39 0 0 unless $self->src_abs eq "/"
42 0 0 unless open my $devnull, "+<", "/dev/null"
46 0 0 if (not $pid) { }
50 0 0 unless chdir $self->src_abs
51 0 0 unless POSIX::dup2(fileno $devnull, 0)
52 0 0 unless POSIX::dup2(fileno $devnull, 1)
53 0 0 unless POSIX::dup2(fileno $devnull, 2)
54 0 0 unless POSIX::dup2(fileno $w, 3)
57 0 0 unless exec @argv
69 0 0 if (length $err)
73 0 0 if $self->{'_log_trace'}
75 0 0 if $self->{'_log_trace'}
76 0 0 if /^open(?:at)?\(.*?"(.*?)",.*?= [0-9]/u
78 0 0 if $self->{'_log_trace'}
81 0 0 if $self->{'_log_trace'}
82 0 0 if $wstat
108 0 0 if (exists $self->{'dst_path_set'}{"usr/share/zoneinfo/$tz_name"} or $self->_dst->can('dst_abs') and -f $self->_dst->dst_abs . $tz_name) { }
0 0 elsif (defined(my $src_path = $self->_src_abs_path("usr/share/zoneinfo/$tz_name"))) { }
0 0 elsif (defined(my $path = abs_path("/usr/share/zoneinfo/$tz_name"))) { }