Branch Coverage

blib/lib/App/Env.pm
Criterion Covered Total %
branch 111 124 89.5


line true false branch
80 11 32 if (builtin::blessed($this) and $this->isa(__PACKAGE__)) { }
82 0 11 if @_
91 23 9 if not ref $this and $this eq __PACKAGE__
94 18 14 unless @_
97 2 12 if (@_ == 1 and "HASH" eq ref $_[0])
114 2 2 if (defined(my $app = App::Env::_Util::getCacheEntry($cacheid)))
135 37 46 'HASH' eq ref $_[-1] ? :
142 81 2 if @_
161 0 2 defined $nopt{'CacheID'} ? :
192 74 7 @apps == 1 && !ref($apps[0]) ? :
197 2 79 if $opts{'Temp'}
210 12 75 if (@apps > 1)
224 2 85 if ("ARRAY" eq ref $app)
226 0 2 unless "HASH" eq ref $opts
231 1 1 if (@apps > 1)
233 0 2 if (exists $app_opt{$iopt})
244 12 75 if (@apps > 1)
275 18 62 if (not $opts{'Force'} and defined(my $app = App::Env::_Util::getCacheEntry($cacheid))) { }
57 5 elsif (@Apps == 1) { }
278 2 16 if ($opts{'Temp'}) { }
326 5 0 if ($opts{'Cache'})
342 164 658 if @_
369 11 82 if defined $self->_var("id")
379 0 3 unless defined $cache
382 1 2 if ($cache) { }
399 10 60 'HASH' eq ref $_[-1] ? :
419 2 6 if $opt{'Exclude'} and wantarray || @_ == 1 && !ref($_[0])
421 44 24 @_ ? :
426 1 5 'ARRAY' eq ref $opt{'Exclude'} ? :
6 62 defined $opt{'Exclude'} ? :
431 2 66 unless $opt{'AllowIllegalVariableNames'}
435 1 67 if (wantarray) { }
35 32 elsif (@_ == 1 and not ref $_[0]) { }
436 2 1 exists $env->{$_} ? :
439 28 7 @vars && exists $$env{$vars[0]} ? :
443 477 0 exists $env->{$_} ? :
454 0 12 unless defined $var
457 11 1 if (@_) { }
470 5 2 'HASH' eq ref $_[-1] ? :
487 1 6 @_ ? :
490 1 3 'ARRAY' eq ref $opt{'Exclude'} ? :
4 3 defined $opt{'Exclude'} ? :
494 7 0 if &List::Util::none(sub { $_ eq "TERMCAP"; } , @$include)
498 6 1 unless $opt{'AllowIllegalVariableNames'}
531 0 151 unless "ARRAY" eq ref $match
535 0 108 unless defined $spec
538 55 53 if (not ref $spec) { }
50 3 elsif ('Regexp' eq ref $spec) { }
2 1 elsif ('CODE' eq ref $spec) { }
1 0 elsif ('ARRAY' eq ref $spec) { }
570 4 3 if ($self->_opt->{'SysFatal'}) { }
592 1 7 if ($wantarray) { }
600 3 1 if $self->_opt->{'SysFatal'}
605 1 3 $wantarray ? :
615 2 5 if "HASH" eq ref $args[-1]
629 3 4 $self->_opt->{'SysFatal'} ? :
645 2 5 if ($redirect) { }
1 4 elsif ($wantarray) { }
648 0 4 unless exists $redirect->{$stream}
650 2 2 if ref $handle eq ""
667 1 3 unless defined $wantarray
668 1 2 $wantarray ? :