| line |
true |
false |
branch |
|
64
|
2 |
56 |
if $type || !$ref and eval {
do {
$first->can('CLI_META')
}
} |
|
67
|
0 |
56 |
unless $meta |
|
83
|
10 |
0 |
unless $params{'args'} |
|
85
|
10 |
0 |
unless $params{'opts'} |
|
95
|
0 |
2 |
unless $self->$meth->{$name} |
|
98
|
2 |
0 |
if $desc |
|
110
|
3 |
10 |
@params > 1 ? : |
|
112
|
0 |
13 |
if $self->args->{$name} |
|
116
|
16 |
0 |
if $prop =~ $self->valid_arg_params |
|
123
|
0 |
13 |
unless $config{'handler'} |
|
126
|
2 |
11 |
if (exists $config{'alias'}) |
|
127
|
0 |
2 |
ref $config{'alias'} ? : |
|
135
|
0 |
2 |
if $self->args->{$alias} |
|
153
|
0 |
41 |
if $self->opts->{$name} |
|
157
|
56 |
0 |
if $prop =~ $self->valid_opt_params |
|
164
|
0 |
41 |
if $config{'bool'} and $config{'check'} |
|
167
|
0 |
41 |
if $config{'bool'} and $config{'transform'} |
|
170
|
2 |
39 |
if $config{'list'} and $config{'bool'} |
|
173
|
4 |
35 |
if (exists $config{'default'}) |
|
174
|
0 |
4 |
if ref $config{'default'} and ref $config{'default'} ne 'CODE' |
|
179
|
18 |
21 |
if (exists $config{'check'}) |
|
181
|
4 |
14 |
if $ref and not $ref =~ /^(CODE|Regexp)$/ or not $ref || $config{'check'} =~ /^(file|dir|number)$/ |
|
186
|
4 |
31 |
if (exists $config{'alias'}) |
|
187
|
2 |
2 |
ref $config{'alias'} ? : |
|
195
|
0 |
6 |
if $self->opts->{$alias} |
|
211
|
6 |
38 |
if ($$spec{'bool'}) |
|
212
|
2 |
4 |
if defined $value |
|
213
|
2 |
2 |
$$spec{'default'} ? : |
|
216
|
10 |
28 |
defined $value ? : |
|
218
|
14 |
24 |
$$spec{'list'} ? : |
|
229
|
22 |
24 |
unless $check |
|
234
|
4 |
20 |
if ($ref eq 'Regexp') { } |
|
|
4 |
16 |
elsif ($ref eq 'CODE') { } |
|
|
4 |
12 |
elsif ($check eq 'file') { } |
|
|
4 |
8 |
elsif ($check eq 'dir') { } |
|
|
8 |
0 |
elsif ($check eq 'number') { } |
|
250
|
14 |
10 |
unless @bad |
|
265
|
2 |
6 |
$$spec{'list'} ? : |
|
|
2 |
8 |
$$spec{'bool'} ? : |
|
267
|
0 |
10 |
$seen{$name}++ ? : |
|
280
|
0 |
6 |
$seen{$name}++ ? : |
|
315
|
0 |
5 |
unless $args and @$args |
|
323
|
0 |
4 |
unless $handler |
|
345
|
6 |
0 |
if $consumer->can('set_opts') |
|
346
|
0 |
6 |
if $consumer->can('set_args') |
|
348
|
3 |
2 |
unless @$args and $self->_item_name('argument', $self->args, $$args[0]) |
|
366
|
4 |
60 |
if ($item eq '--') |
|
371
|
48 |
12 |
if ($item =~ /^-+([^-=]+)(?:=(.+))?$/ and not $no_opts) |
|
375
|
2 |
44 |
unless $pre or $opt |
|
379
|
12 |
44 |
unless ($opt) |
|
390
|
14 |
30 |
if ($self->opts->{$opt}{'list'}) { } |
|
400
|
4 |
4 |
if exists $$opts{$opt} |
|
402
|
0 |
4 |
ref $val ? : |
|
416
|
12 |
34 |
if (ref $values and ref $values eq 'ARRAY') { } |
|
427
|
4 |
42 |
if $transform |
|
432
|
8 |
28 |
$list ? : |
|
434
|
4 |
32 |
if $trigger |
|
444
|
43 |
13 |
if $$hash{$key} |
|
452
|
4 |
9 |
if @matches > 1 |
|
455
|
2 |
7 |
unless @matches |