| blib/lib/Getopt/App.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 33 | 45 | 73.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 135 | 6 | 0 | 1 | $subcommand->[1] =~ /^\w+$/u && $app->can($subcommand->[1]) |
| 148 | 17 | 5 | 1 | $argv->[0] and $argv->[0] =~ /^-/u |
| 210 | 7 | 1 | 25 | $exit_value and $exit_value =~ /^\d{1,3}$/u |
| 221 | 39 | 0 | 10 | defined $ENV{'COMP_POINT'} and defined $ENV{'COMP_LINE'} |
| 240 | 3 | 2 | 14 | $argv->[0] and $argv->[0] =~ /^\w/u |
| line | l | !l | condition |
|---|---|---|---|
| 11 | 0 | 7 | $ENV{'GETOPT_APP_DEBUG'} || 0 |
| 71 | 1 | 0 | $package || "package main\n" |
| 94 | 17 | 8 | $argv || [@ARGV] |
| 119 | 3 | 1 | $usage //= "" |
| 124 | 1 | 3 | $SUBCOMMANDS || [] |
| 4 | 0 | $OPTIONS || [] | |
| 217 | 49 | 0 | $argv ||= [@ARGV] |
| 260 | 7 | 2 | $o[1] //= "" |
| 278 | 6 | 0 | $s->[2] // "" |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 111 | 0 | 4 | 0 | shift() || (caller)[1] |
| 197 | 0 | 51 | 0 | ref $class || $class |
| 209 | 7 | 20 | 6 | $app->$call_maybe("getopt_post_process_exit_value", $exit_value) // $exit_value |
| 246 | 4 | 6 | 0 | $APPS{$Getopt::App::SUBCOMMAND->[1]} ||= $app->$call_maybe("getopt_load_subcommand", $SUBCOMMAND, $argv) |