| line |
true |
false |
branch |
|
43
|
0 |
1 |
if $opt{'help'} |
|
44
|
0 |
1 |
if $opt{'usage'} |
|
47
|
0 |
1 |
if $opt{'version'} |
|
50
|
0 |
1 |
unless defined $opt{'env'} |
|
52
|
1 |
0 |
if ($opt{'clear'}) |
|
64
|
0 |
1 |
if (@envs > 1) { } |
|
70
|
0 |
0 |
unless exists $appopts{$env} |
|
83
|
0 |
1 |
defined $opt{'site'} ? : |
|
89
|
1 |
0 |
if $opt{'dumpenv'} |
|
91
|
0 |
1 |
if (@ARGV) |
|
93
|
0 |
0 |
if $opt{'verbose'} |
|
97
|
0 |
0 |
unless file_name_is_absolute($ARGV[0]) and -e $ARGV[0] or defined which($ARGV[0]) |
|
101
|
0 |
0 |
unless exec {$ARGV[0];} @ARGV |
|
116
|
1 |
0 |
unless @$vars |
|
120
|
0 |
1 |
if ($fmt eq 'raw') { } |
|
|
0 |
1 |
elsif ($fmt eq 'unquoted') { } |
|
|
0 |
1 |
elsif ($fmt eq 'values') { } |
|
|
0 |
1 |
elsif ($fmt eq 'json') { } |
|
|
0 |
1 |
elsif ($fmt eq 'delta-json') { } |
|
|
0 |
1 |
elsif ($fmt eq 'delta-args') { } |
|
126
|
0 |
0 |
length $env->{$_} ? : |
|
160
|
0 |
1 |
if ($fmt eq 'auto') { } |
|
165
|
0 |
1 |
unless my $mth = "Shell::Guess"->can(($ShellMap{$fmt} // $fmt) . '_shell') |
|
183
|
0 |
0 |
unless not exists $ENV{$_} |
|
227
|
0 |
1 |
if $opt{'version'} or $opt{'help'} or $opt{'usage'} |
|
230
|
0 |
1 |
if @notset |
|
234
|
1 |
0 |
if (exists $opt{'dumpenv'}) |
|
236
|
0 |
1 |
unless &any(sub {
$opt{'dumpenv'} eq $_;
}
, keys %ShellMap, ("auto", "delta-args", "delta-json", "json", "raw", "unquoted", "values")) |
|
242
|
0 |
1 |
unless defined $opt{'env'} |