| line |
true |
false |
branch |
|
7
|
0 |
14 |
eval 'use Sub::Name; 1' ? : |
|
|
0 |
14 |
$INC{'App/FatPacker/Trace.pm'} ? : |
|
24
|
3 |
39 |
if ($self->_subcommand_activate($ARGV[0])) |
|
28
|
115 |
0 |
if exists $option->{'default'} |
|
29
|
24 |
91 |
if ref $options{$switch} eq 'ARRAY' |
|
32
|
0 |
42 |
unless ($parser->getoptions(\%options, @options_spec, $self->_default_options)) |
|
36
|
1 |
41 |
if ($options{'help'}) { } |
|
|
1 |
40 |
elsif ($options{'man'}) { } |
|
|
1 |
39 |
elsif ($options{'version'}) { } |
|
53
|
42 |
0 |
if defined wantarray |
|
58
|
58 |
9 |
if @_ == 1 |
|
59
|
1 |
8 |
unless $_[0]{'documentation'} = $_[1] |
|
88
|
0 |
126 |
unless $name |
|
89
|
0 |
126 |
$name =~ /::/ ? : |
|
106
|
0 |
21 |
unless $self->{'caller'} |
|
113
|
1 |
38 |
unless my $type = shift() |
|
114
|
1 |
37 |
unless my $name = shift() |
|
115
|
1 |
36 |
unless my $documentation = shift() |
|
118
|
6 |
30 |
if (@_ % 2) { } |
|
126
|
1 |
35 |
if ($args{'alias'} and not ref $args{'alias'}) |
|
144
|
3 |
3 |
if $self->documentation |
|
145
|
3 |
3 |
if $self->version |
|
153
|
8 |
32 |
if $width < $length |
|
158
|
4 |
2 |
unless $self->{'subcommands'} |
|
|
2 |
4 |
if (%{{} unless $self->{'subcommands'};}) |
|
169
|
12 |
28 |
unless (my $name = $self->_attr_to_option($option->{'name'})) |
|
176
|
4 |
24 |
$option->{'required'} ? : |
|
|
27 |
1 |
length $name > 1 ? : |
|
184
|
1 |
3 |
unless my $version = $self->version |
|
186
|
1 |
2 |
unless ($version =~ /^\d/) |
|
187
|
0 |
1 |
unless eval "require $version; 1" |
|
196
|
15 |
8 |
unless @_ |
|
202
|
55 |
8 |
if @_ == 1 |
|
203
|
1 |
7 |
unless $_[0]{'version'} = $_[1] |
|
208
|
12 |
270 |
unless local $_ = $_[1] |
|
217
|
2 |
124 |
if (ref $option->{'alias'} eq 'ARRAY') |
|
221
|
7 |
119 |
if ($option->{'type'} =~ /^(?:bool|flag)/i) { } |
|
|
1 |
118 |
elsif ($option->{'type'} =~ /^inc/) { } |
|
|
55 |
63 |
elsif ($option->{'type'} =~ /^str/) { } |
|
|
1 |
62 |
elsif ($option->{'type'} =~ /^int/i) { } |
|
|
3 |
59 |
elsif ($option->{'type'} =~ /^num/i) { } |
|
|
48 |
11 |
elsif ($option->{'type'} =~ /^file/) { } |
|
|
10 |
1 |
elsif ($option->{'type'} =~ /^dir/) { } |
|
230
|
26 |
99 |
if (my $n_of = $option->{'n_of'}) |
|
231
|
24 |
2 |
$n_of eq '@' ? : |
|
233
|
0 |
26 |
if $option->{'default'} and ref $option->{'default'} ne 'ARRAY' |
|
246
|
9 |
35 |
if $self->documentation |
|
247
|
8 |
36 |
if $self->version |
|
254
|
2 |
2 |
unless $reason =~ /^\d+$/ |
|
268
|
0 |
22 |
unless eval "\n package $application_class;\n use base qw(@$extends);\n 1;\n " |
|
277
|
22 |
0 |
unless grep {$_->can('new');} @$extends |
|
283
|
1 |
6 |
if (@required = grep({not defined $app->{$_};} @required)) |
|
300
|
5451 |
129 |
if $self->{'skip_subs'}{$name} |
|
301
|
10 |
119 |
ref $ns->{$name} eq 'CODE' ? : |
|
|
115 |
14 |
unless my $code = eval {
do {
ref $ns->{$name} eq 'CODE' ? $ns->{$name} : *{$ns->{$name};}{'CODE'}
}
} |
|
308
|
0 |
22 |
if $application_class->isa('Moose::Object') and $application_class->can('meta') |
|
313
|
0 |
32 |
if ($meta) { } |
|
317
|
1 |
62 |
if @_ == 2 |
|
319
|
5 |
27 |
if $option->{'required'} |
|
327
|
36 |
26 |
unless my $class = shift() |
|
328
|
25 |
1 |
if $class->can('new') |
|
329
|
0 |
1 |
eval "require $class; 1" ? : |
|
340
|
0 |
118 |
unless local $_ = $_[1] |
|
347
|
3 |
3 |
unless my $documentation = $self->documentation |
|
350
|
0 |
3 |
unless (-e $documentation) |
|
351
|
0 |
0 |
unless eval "use $documentation; 1" |
|
356
|
0 |
3 |
unless open my $FH, '<', $documentation |
|
359
|
2 |
173 |
if $print and /^=(?:cut|head1)/ |
|
360
|
8 |
165 |
if $print |
|
361
|
2 |
171 |
if /^=head1 SYNOPSIS/ |
|
368
|
1 |
111 |
if *$fqn{'CODE'} |
|
374
|
38 |
5 |
unless $name and $name =~ /^\w+/ |
|
375
|
1 |
4 |
unless $self->{'subcommands'}{$name} |
|
390
|
6 |
4 |
unless $name = $self->subcommand |
|
396
|
56 |
62 |
unless defined $input |
|
399
|
37 |
25 |
unless my $class = _load_class($option->{'isa'}) |
|
400
|
9 |
16 |
ref $input eq 'ARRAY' ? : |