| line |
true |
false |
branch |
|
55
|
5 |
0 |
if (ref $args[0] eq 'HASH' and $args[0]{'command_line'})
|
|
59
|
3 |
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'} ? :
|
|
90
|
5 |
43 |
$_->{'alt'} ? :
|
|
95
|
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('', readline STDIN)) : 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}
|