Branch Coverage

blib/lib/Shell/GetEnv.pm
Criterion Covered Total %
branch 43 72 59.7


line true false branch
125 0 21 unless defined $shells{$shell}
127 21 0 'HASH' eq ref $_[-1] ? :
133 0 21 if @notvalid
156 0 21 unless my $fh_e = 'File::Temp'->new
169 21 0 if $self->{'redirect'}
172 0 21 if ($self->{'debug'})
181 3 18 if ($self->{'expect'}) { }
193 21 0 if $self->{'redirect'}
195 0 21 if ($error)
231 0 22 unless open $self->{'oSTDOUT'}, '>&STDOUT'
233 0 22 unless open $self->{'oSTDERR'}, '>&STDERR'
236 0 22 unless open STDERR, '>', $stderr
238 0 22 unless open STDOUT, '>', $stdout
271 89 16 if exists $shell->{$_}
280 0 0 'ARRAY' eq ref $self->{'shellopts'} ? :
0 21 defined $self->{'shellopts'} ? :
287 0 0 if $self->{'shell'} eq 'csh' || $self->{'shell'} eq 'tcsh' and $self->{'login'} and @options + @shellopts > 1
294 21 0 @bundled ? :
306 21 0 $bundled ? :
319 0 18 unless open my $pipe, '|-', $self->{'shell'}, @{$self->{'shelloptions'};}
323 0 18 unless close $pipe
335 0 3 unless $exp->spawn($self->{'shell'}, @{$$self{'shelloptions'};})
365 0 24 if @unknown
378 3 21 unless 'ARRAY' eq ref $opt{'exclude'}
384 1 5 if ('Regexp' eq ref $exclude) { }
1 4 elsif ('CODE' eq ref $exclude) { }
403 2 22 if ($opt{'diffsonly'})
406 44 2 if exists $ENV{$_}
413 2 22 if ($opt{'envstr'})
418 0 2 if ($opt{'zapdeleted'})
421 0 0 if exists $ENV{$_}
440 0 24 if ($str eq '') { }
4 20 elsif ($str =~ /\s/) { }
480 0 8 if @unknown
494 7 1 if ($opt{'ZapDeleted'})
496 188 0 if exists $ENV{$_}