| line |
true |
false |
branch |
|
57
|
0 |
17 |
unless $name |
|
61
|
1 |
16 |
unless my $data = $self->get("arg", $name) |
|
77
|
2 |
14 |
if ($_prompt and not @values && defined $values[0]) |
|
82
|
2 |
0 |
if (defined $_default and !(@values && defined $values[0]) || $values[0] eq '' and exists $data->{'default'}) |
|
90
|
0 |
0 |
$_ ? : |
|
|
0 |
5 |
lc $_type eq 'boolean' ? : |
|
|
5 |
11 |
if $_type |
|
94
|
15 |
1 |
wantarray ? : |
|
100
|
0 |
7 |
unless $name |
|
102
|
1 |
6 |
unless my $data = $self->get("cmd", $name) |
|
106
|
5 |
1 |
($value // '') eq $name ? : |
|
112
|
4 |
6 |
if $method |
|
128
|
1 |
101 |
unless $key |
|
252
|
0 |
0 |
$self->store('opt', $name, 'multi') ? : |
|
345
|
0 |
12 |
if (my $description = $self->help_description) |
|
350
|
0 |
12 |
if (my $header = $self->help_header) |
|
355
|
6 |
6 |
if (my $arguments = $self->help_arguments) |
|
360
|
2 |
10 |
if (my $options = $self->help_options) |
|
365
|
2 |
10 |
if (my $commands = $self->help_commands) |
|
370
|
0 |
12 |
if (my $footer = $self->help_footer) |
|
382
|
0 |
6 |
unless my $data = $self->get("arg", $name) |
|
393
|
1 |
5 |
if ($_multi) |
|
401
|
6 |
0 |
if ($_help) |
|
407
|
5 |
1 |
if ($_required) { } |
|
418
|
1 |
5 |
if ($_type) |
|
444
|
6 |
6 |
unless my $arguments = $self->help_args |
|
460
|
0 |
2 |
unless my $data = $self->get("cmd", $name) |
|
474
|
0 |
2 |
if ($_multi) |
|
482
|
2 |
0 |
if ($_help) |
|
488
|
2 |
0 |
if ($arg->{'name'}) |
|
514
|
10 |
2 |
unless my $commands = $self->help_cmds |
|
522
|
12 |
0 |
unless my $description = $self->str("description") |
|
530
|
12 |
0 |
unless my $footer = $self->str("footer") |
|
538
|
12 |
0 |
unless my $header = $self->str("header") |
|
554
|
0 |
2 |
unless my $data = $self->get("opt", $name) |
|
573
|
0 |
0 |
if $_type and $type_map{$_type} |
|
575
|
2 |
0 |
if ($_alias) |
|
577
|
2 |
0 |
ref $_alias eq 'ARRAY' ? : |
|
580
|
0 |
2 |
if ($_multi) |
|
588
|
2 |
0 |
if ($_help) |
|
594
|
0 |
2 |
if ($_required) { } |
|
605
|
0 |
2 |
if ($_type) |
|
617
|
10 |
2 |
unless my $options = $self->help_opts |
|
643
|
6 |
6 |
if (my $has_args = $self->get("arg")) |
|
644
|
0 |
6 |
keys %{$has_args;} > 1 ? : |
|
652
|
1 |
5 |
if $_multi |
|
653
|
5 |
1 |
if $_required |
|
658
|
1 |
5 |
if $has_multi |
|
659
|
1 |
5 |
unless $has_required |
|
664
|
2 |
10 |
if (my $has_opts = $self->get("opt")) |
|
665
|
0 |
2 |
keys %{$has_opts;} > 1 ? : |
|
673
|
0 |
2 |
if $_multi |
|
674
|
0 |
2 |
if $_required |
|
679
|
0 |
2 |
if $has_multi |
|
680
|
2 |
0 |
unless $has_required |
|
703
|
0 |
17 |
unless $name |
|
707
|
1 |
16 |
unless my $data = $self->get("opt", $name) |
|
722
|
3 |
13 |
ref $parsed eq 'ARRAY' ? : |
|
725
|
1 |
15 |
if ($_prompt and not @values && defined $values[0]) |
|
730
|
0 |
0 |
if (defined $_default and !(@values && defined $values[0]) || $values[0] eq '' and exists $data->{'default'}) |
|
738
|
0 |
0 |
$_ ? : |
|
|
0 |
7 |
lc $_type eq 'boolean' ? : |
|
|
6 |
10 |
if $_type |
|
742
|
15 |
1 |
wantarray ? : |
|
754
|
0 |
3 |
@values > 1 ? : |
|
761
|
0 |
6 |
@values > 1 ? : |
|
784
|
1 |
103 |
unless $key |
|
956
|
5 |
0 |
@args ? : |
|
1063
|
0 |
31 |
unless my $item = $self->store("opt", $order->{$index}) |
|
1071
|
21 |
10 |
if ($_alias) |
|
1073
|
17 |
4 |
ref $_alias eq 'ARRAY' ? : |
|
1084
|
6 |
25 |
if $_type |
|
1085
|
5 |
26 |
if $_multi |
|
1098
|
79 |
514 |
unless $key |
|
1100
|
123 |
391 |
unless $name |
|
1104
|
91 |
4 |
exists $config->{$key} && exists $config->{$key}{$name} ? : |
|
|
95 |
296 |
unless @args |
|
1113
|
17 |
60 |
exists $config->{$key} && exists $config->{$key}{$name} && exists $config->{$key}{$name}{$prop} ? : |
|
|
77 |
219 |
unless @data |
|
1129
|
0 |
77 |
unless $name |
|
1153
|
6 |
0 |
if ($type) |
|
1158
|
3 |
3 |
if (my $caught = $assert->catch("validate", $values[$i])) |
|
1169
|
3 |
0 |
wantarray ? : |
|
1185
|
0 |
30 |
if ($size + length($part) + 1 + $indent > $length) { } |
|
1197
|
10 |
0 |
$indent ? : |