Branch Coverage

blib/lib/ShellScript/Env.pm
Criterion Covered Total %
branch 28 36 77.7


line true false branch
14 0 2 unless (defined $self->{'prefix'})
42 3 5 if (scalar @found > 0)
71 1 8 if (not $_ =~ /^$prefix/ and $_ =~ m[^[^\$\/]])
90 1 2 if ($_ ne $env)
109 0 0 if (open CSH, ">$csh_file") { }
119 0 0 if (open SH, ">$sh_file") { }
148 1 10 if ($self->{'utok'}{$_}) { }
159 1 10 if ($self->{'utok'}{$_}) { }
167 5 0 if ($export ne "export ")
185 2 6 if ($_ eq 'PATH') { }
192 1 7 if ($self->{'utok'}{$_})
193 1 0 if ($delimiter ne ':') { }
202 2 8 if ($_ eq 'PATH' and $item eq '$PATH') { }
210 1 7 if ($self->{'utok'}{$_}) { }
216 2 6 if ($_ eq "PATH")
238 0 9 if (-l $self->{'prefix'}) { }
267 8 91 if (/^$find$/ and -d $_)
270 2 9 if ($File::Find::name =~ m[/$skip/])