Branch Coverage

blib/lib/Shell/Source.pm
Criterion Covered Total %
branch 13 20 65.0


line true false branch
35 0 6 unless $$self{'shell'}
37 0 6 unless $$self{'run'}
41 6 0 if length $$self{'file'}
49 0 6 unless length $$self{'file'}
51 0 6 unless my $fh = $$self{'fh'} = 'FileHandle'->new($run)
54 0 6 unless $fh->close
65 338 12 if ($line =~ /^(\w+)=(.*)$/) { }
68 26 312 if (!defined($ENV{$1}) || $ENV{$1} ne $2 and not grep {$1 eq $_;} @{$$self{'ignore'};})
76 6 6 unless $env
105 6 0 if defined $$self{'output'}