line |
true |
false |
branch |
6
|
0 |
12 |
eval 'use Sub::Name; 1' ? : |
|
0 |
12 |
$INC{'App/FatPacker/Trace.pm'} ? : |
23
|
105 |
0 |
if exists $option->{'default'} |
24
|
24 |
81 |
if ref $options{$switch} eq 'ARRAY' |
27
|
0 |
28 |
unless ($parser->getoptions(\%options, @options_spec, $self->_default_options)) |
31
|
0 |
28 |
if ($options{'help'}) { } |
|
0 |
28 |
elsif ($options{'man'}) { } |
|
0 |
28 |
elsif ($options{'version'}) { } |
48
|
28 |
0 |
if defined wantarray |
53
|
37 |
4 |
if @_ == 1 |
54
|
1 |
3 |
unless $_[0]{'documentation'} = $_[1] |
83
|
0 |
55 |
unless $name |
84
|
0 |
55 |
$name =~ /::/ ? : |
100
|
0 |
11 |
unless $self->{'caller'} |
107
|
1 |
27 |
unless my $type = shift() |
108
|
1 |
26 |
unless my $name = shift() |
109
|
1 |
25 |
unless my $documentation = shift() |
112
|
6 |
19 |
if (@_ % 2) { } |
120
|
1 |
24 |
if ($args{'alias'} and not ref $args{'alias'}) |
138
|
2 |
1 |
if $self->documentation |
139
|
2 |
1 |
if $self->version |
147
|
4 |
20 |
if $width < $length |
154
|
6 |
18 |
unless (my $name = $self->_attr_to_option($option->{'name'})) |
161
|
3 |
15 |
$option->{'required'} ? : |
|
17 |
1 |
length $name > 1 ? : |
169
|
1 |
2 |
unless my $version = $self->version |
171
|
1 |
1 |
unless ($version =~ /^\d/) |
172
|
0 |
1 |
unless eval "require $version; 1" |
180
|
37 |
5 |
if @_ == 1 |
181
|
1 |
4 |
unless $_[0]{'version'} = $_[1] |
186
|
6 |
239 |
unless local $_ = $_[1] |
195
|
2 |
113 |
if (ref $option->{'alias'} eq 'ARRAY') |
199
|
4 |
111 |
if ($option->{'type'} =~ /^(?:bool|flag)/i) { } |
|
1 |
110 |
elsif ($option->{'type'} =~ /^inc/) { } |
|
49 |
61 |
elsif ($option->{'type'} =~ /^str/) { } |
|
1 |
60 |
elsif ($option->{'type'} =~ /^int/i) { } |
|
3 |
57 |
elsif ($option->{'type'} =~ /^num/i) { } |
|
47 |
10 |
elsif ($option->{'type'} =~ /^file/) { } |
|
10 |
0 |
elsif ($option->{'type'} =~ /^dir/) { } |
208
|
26 |
89 |
if (my $n_of = $option->{'n_of'}) |
209
|
24 |
2 |
$n_of eq '@' ? : |
211
|
0 |
26 |
if $option->{'default'} and ref $option->{'default'} ne 'ARRAY' |
224
|
2 |
28 |
if $self->documentation |
225
|
2 |
28 |
if $self->version |
232
|
0 |
0 |
unless $reason =~ /^\d+$/ |
246
|
0 |
12 |
unless eval "\n package $application_class;\n use base qw(@$extends);\n 1;\n " |
255
|
12 |
0 |
unless grep {$_->can('new');} @$extends |
261
|
1 |
0 |
if (@required = grep({not defined $app->{$_};} @required)) |
275
|
2412 |
106 |
if $self->{'skip_subs'}{$name} |
276
|
3 |
103 |
ref $ns->{$name} eq 'CODE' ? : |
|
99 |
7 |
unless my $code = eval {
do {
ref $ns->{$name} eq 'CODE' ? $ns->{$name} : *{$ns->{$name};}{'CODE'}
}
} |
283
|
0 |
12 |
if $application_class->isa('Moose::Object') and $application_class->can('meta') |
288
|
0 |
22 |
if ($meta) { } |
292
|
1 |
55 |
if @_ == 2 |
294
|
2 |
20 |
if $option->{'required'} |
302
|
27 |
26 |
unless my $class = shift() |
303
|
25 |
1 |
if $class->can('new') |
304
|
0 |
1 |
eval "require $class; 1" ? : |
315
|
0 |
105 |
unless local $_ = $_[1] |
322
|
1 |
2 |
unless my $documentation = $self->documentation |
325
|
0 |
2 |
unless (-e $documentation) |
326
|
0 |
0 |
unless eval "use $documentation; 1" |
331
|
0 |
2 |
unless open my $FH, '<', $documentation |
334
|
2 |
97 |
if $print and /^=(?:cut|head1)/ |
335
|
8 |
89 |
if $print |
336
|
2 |
95 |
if /^=head1 SYNOPSIS/ |
343
|
1 |
64 |
if *$fqn{'CODE'} |
349
|
52 |
53 |
unless defined $input |
352
|
28 |
25 |
unless my $class = _load_class($option->{'isa'}) |
353
|
9 |
16 |
ref $input eq 'ARRAY' ? : |