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/])