| line |
true |
false |
branch |
|
55
|
5 |
9 |
if (ref $args[0] eq 'HASH' and $args[0]{'command_line'}) |
|
59
|
0 |
14 |
unless my $route_args = $meta->get('args') |
|
60
|
9 |
5 |
unless ($cli) |
|
65
|
12 |
17 |
if $$_{'positional'} |
|
67
|
2 |
15 |
if ($$_{'alt'}) |
|
75
|
11 |
14 |
if (exists $valid{$in}) { } |
|
77
|
11 |
0 |
if @args and defined $valid{$in} and length $valid{$in} |
|
86
|
8 |
40 |
$$_{'required'} ? : |
|
87
|
5 |
43 |
$$_{'alt'} ? : |
|
93
|
8 |
40 |
$$_{'required'} ? : |
|
100
|
0 |
14 |
unless GetOptionsFromArray \@args, \%method_args, @getopt |
|
104
|
28 |
20 |
unless @args |
|
105
|
8 |
12 |
unless my $spec = $$_{'positional'} |
|
108
|
11 |
1 |
if (/one/) |
|
112
|
1 |
0 |
if (/many/) |
|
123
|
34 |
7 |
unless $$_{'required'} |
|
124
|
5 |
2 |
if exists $method_args{$name} |
|
128
|
0 |
12 |
if @args |
|
133
|
34 |
4 |
unless $$_{'preprocess'} |
|
134
|
0 |
4 |
unless $$_{'preprocess'} =~ /yamldoc|list|datetime/ |
|
135
|
0 |
4 |
unless my $filename = $method_args{$name} |
|
136
|
0 |
4 |
if $filename and $filename =~ /\n/ |
|
138
|
2 |
2 |
if (/yamldoc/) |
|
139
|
1 |
1 |
if ref $filename |
|
140
|
0 |
1 |
$filename eq '-' ? : |
|
|
0 |
1 |
unless $method_args{$name} = $filename eq '-' ? Load(join('', )) : LoadFile($filename) |
|
144
|
2 |
0 |
if (/list/) |
|
145
|
1 |
1 |
if ref $filename eq 'ARRAY' |
|
149
|
0 |
0 |
if (/^datetime$/) |
|
160
|
9 |
29 |
unless exists $method_args{$name} |