| script/appexec | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 6 | 30 | 20.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 97 | 0 | 0 | 0 | file_name_is_absolute($ARGV[0]) and -e $ARGV[0] |
| 110 | 0 | 0 | 0 | !($name =~ /\P{IsWord}/) && substr($name, 0, 1) =~ /\P{IsDigit}/ |
| 183 | 0 | 0 | 0 | exists $ENV{$_} and exists $env->{$_} |
| 0 | 0 | 0 | exists $ENV{$_} and exists $env->{$_} and $ENV{$_} ne $env->{$_} |
| line | l | !l | condition |
|---|---|---|---|
| 33 | 1 | 0 | eval { do { main() } } // do { say STDERR "# ${prog}: $_" foreach (split(/\n/, $@, 0)); exit 1 } |
| 80 | 1 | 0 | eval { do { "App::Env"->new(map({[$_, {"AppOpts", $appopts{$_}}];} @envs), {defined $opt{'site'} ? ("Site", $opt{'site'}) : ()}) } } // die("error setting up environment `$opt{'env'}': $@\n") |
| 202 | 1 | 0 | eval { do { local $SIG{'__WARN__'} = sub { die $_[0]; } ; &Getopt::Long::Configure("no_ignore_case"); &GetOptions(\%opt, ("env=s", "appopts|o=s%", "define|D=s%", "delete|X=s\@", "usage", "help", "clear|c", "dumpenv|d=s", "dumpvar|V=s\@", "site=s", "verbose", "version")); 1 } } // die($@) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 97 | 0 | 0 | 0 | file_name_is_absolute($ARGV[0]) and -e $ARGV[0] or defined which($ARGV[0]) |
| 165 | 1 | 0 | 0 | $ShellMap{$fmt} // $fmt |
| 227 | 0 | 0 | 1 | $opt{'version'} or $opt{'help'} |
| 0 | 0 | 1 | $opt{'version'} or $opt{'help'} or $opt{'usage'} |