| line |
true |
false |
branch |
|
22
|
0 |
91 |
if $attributes{'repeatable'} and not defined $attributes{'format'} |
|
23
|
15 |
76 |
if $attributes{'negatable'} |
|
24
|
76 |
15 |
if defined $attributes{'format'} |
|
25
|
0 |
91 |
if $attributes{'repeatable'} and defined $attributes{'format'} |
|
43
|
0 |
107 |
$config->{'added_order'} ? : |
|
|
0 |
0 |
unless ($options->{$a}{'order'} || 9999) <=> ($options->{$b}{'order'} || 9999) or $config->{'added_order'} ? $options->{$a}{'added_order'} <=> $options->{$b}{'added_order'} : 0 |
|
54
|
0 |
87 |
if (@{$fullnames{$name};} > 1) |
|
64
|
0 |
87 |
unless defined $doc |
|
66
|
0 |
87 |
if $attributes{'spacer_before'} |
|
67
|
0 |
87 |
$attributes{'hidden'} ? : |
|
68
|
0 |
87 |
if $attributes{'spacer_after'} |
|
75
|
87 |
0 |
if ($config->{'abbreviate'}) |
|
78
|
844 |
0 |
unless exists $fullnames{$abbreviated} |
|
103
|
22 |
16 |
if ($arg eq "--" or $arg eq "-" or not $arg =~ /^-/) |
|
109
|
0 |
16 |
if defined $arg_value |
|
123
|
11 |
5 |
if ($dash eq "--") |
|
125
|
11 |
0 |
if (defined $option_names) |
|
126
|
11 |
0 |
if (@$option_names == 1) { } |
|
138
|
11 |
5 |
if (defined $option_name) { } |
|
146
|
9 |
2 |
if (defined $option_name and $options->{$option_name}{'format'}) |
|
170
|
0 |
39 |
if $config{'protect_argv'} |
|
172
|
23 |
16 |
unless (defined $params{'invoked_as'}) |
|
178
|
0 |
39 |
if ($parsed_params->{'h'}) { } |
|
|
0 |
39 |
elsif ($parsed_params->{'help'}) { } |
|
|
0 |
39 |
elsif ($parsed_params->{'man'}) { } |
|
187
|
39 |
0 |
if ($config{'prefer_commandline'}) { } |
|
195
|
17 |
22 |
if (@ARGV and $ARGV[0] ne "--") |
|
196
|
0 |
17 |
if ($ARGV[0] =~ /^--/) { } |
|
|
17 |
0 |
elsif (%subcommands) { } |
|
202
|
0 |
17 |
unless (defined $subcommand_class) |
|
212
|
0 |
39 |
unless (eval {
do {
$self = $class->new(%merged_params);
1
}
}) |
|
213
|
0 |
0 |
if ($@ =~ /^Attribute \((.*?)\) is required/) { } |
|
|
0 |
0 |
elsif ($@ =~ /^Missing required arguments: (.*) at /) { } |
|
|
0 |
0 |
elsif ($@ =~ /^(.*?) required/) { } |
|
|
0 |
0 |
elsif ($@ =~ /^isa check .*?failed: /) { } |
|
228
|
22 |
17 |
unless $subcommand_class |
|
230
|
16 |
1 |
unless ref $subcommand_class |
|
249
|
23 |
17 |
%subcommands ? : |
|
251
|
0 |
40 |
if defined $config{'getopt_options'} |
|
254
|
1 |
39 |
unless defined $prog_name |
|
257
|
40 |
0 |
unless (defined $usage_str) |
|
258
|
23 |
17 |
if (%subcommands) { } |
|
278
|
0 |
40 |
if ($usage->{'should_die'}) |
|
288
|
87 |
0 |
if (exists $options{$name} and exists $options{$name}{'option'}) |
|
294
|
19 |
188 |
if defined $val |
|
306
|
0 |
0 |
if (@messages and builtin::blessed($messages[0]) and $messages[0]->isa('CLI::Osprey::Descriptive::Usage')) { } |
|
314
|
0 |
0 |
if @messages |
|
317
|
0 |
0 |
if ($code) { } |
|
322
|
0 |
0 |
if defined $code |
|
329
|
0 |
0 |
unless (defined $usage and builtin::blessed($usage) and $usage->isa("CLI::Osprey::Descriptive::Usage")) |
|
336
|
0 |
0 |
if ($code) { } |
|
341
|
0 |
0 |
if defined $code |
|
348
|
0 |
0 |
unless (defined $usage and builtin::blessed($usage) and $usage->isa("CLI::Osprey::Descriptive::Usage")) |