| line |
true |
false |
branch |
|
90
|
0 |
9 |
eval 'use Sub::Name; 1' ? : |
|
|
0 |
9 |
$INC{'App/FatPacker/Trace.pm'} ? : |
|
101
|
0 |
42 |
if *$fqn{'CODE'} |
|
190
|
1 |
15 |
unless my $type = shift() |
|
191
|
1 |
14 |
unless my $name = shift() |
|
192
|
1 |
13 |
unless my $documentation = shift() |
|
195
|
5 |
8 |
if (@_ % 2) { } |
|
203
|
1 |
12 |
if ($args{'alias'} and not ref $args{'alias'}) |
|
224
|
20 |
4 |
if @_ == 1 |
|
225
|
1 |
3 |
unless $_[0]{'documentation'} = $_[1] |
|
240
|
20 |
5 |
if @_ == 1 |
|
241
|
1 |
4 |
unless $_[0]{'version'} = $_[1] |
|
284
|
13 |
0 |
if exists $option->{'default'} |
|
287
|
0 |
11 |
unless ($parser->getoptions(\%options, @options_spec, $self->_default_options)) |
|
291
|
0 |
11 |
if ($options{'help'}) { } |
|
|
0 |
11 |
elsif ($options{'man'}) { } |
|
|
0 |
11 |
elsif ($options{'version'}) { } |
|
307
|
11 |
0 |
if defined wantarray |
|
315
|
2 |
21 |
if (ref $option->{'alias'} eq 'ARRAY') |
|
319
|
3 |
20 |
if ($option->{'type'} =~ /^(?:bool|flag)/i) { } |
|
|
1 |
19 |
elsif ($option->{'type'} =~ /^inc/) { } |
|
|
12 |
7 |
elsif ($option->{'type'} =~ /^str/) { } |
|
|
1 |
6 |
elsif ($option->{'type'} =~ /^int/i) { } |
|
|
3 |
3 |
elsif ($option->{'type'} =~ /^num/i) { } |
|
|
2 |
1 |
elsif ($option->{'type'} =~ /^file/) { } |
|
|
1 |
0 |
elsif ($option->{'type'} =~ /^dir/) { } |
|
328
|
3 |
20 |
if (my $n_of = $option->{'n_of'}) |
|
329
|
1 |
2 |
$n_of eq '@' ? : |
|
331
|
0 |
3 |
if $option->{'default'} and ref $option->{'default'} ne 'ARRAY' |
|
344
|
2 |
11 |
if $self->documentation |
|
345
|
2 |
11 |
if $self->version |
|
360
|
0 |
9 |
unless eval "\n package $application_class;\n use base qw/ @$extends /;\n 1;\n " |
|
369
|
9 |
0 |
unless grep {$_->can('new');} @$extends |
|
374
|
1 |
0 |
if (@required = grep({not defined $app->{$_};} @required)) |
|
387
|
2217 |
85 |
if $self->{'skip_subs'}{$name} |
|
388
|
3 |
82 |
ref $ns->{$name} eq 'CODE' ? : |
|
|
80 |
5 |
unless my $code = eval {
do {
ref $ns->{$name} eq 'CODE' ? $ns->{$name} : *{$ns->{$name};}{'CODE'}
}
} |
|
395
|
0 |
9 |
if $application_class->isa('Moose::Object') and $application_class->can('meta') |
|
400
|
0 |
10 |
if ($meta) { } |
|
404
|
1 |
8 |
if @_ == 2 |
|
406
|
2 |
8 |
if $option->{'required'} |
|
448
|
0 |
8 |
unless $self->{'caller'} |
|
475
|
2 |
1 |
if $self->documentation |
|
476
|
2 |
1 |
if $self->version |
|
484
|
4 |
20 |
if $width < $length |
|
491
|
6 |
18 |
unless (my $name = $self->_attr_to_option($option->{'name'})) |
|
498
|
3 |
15 |
$option->{'required'} ? : |
|
|
17 |
1 |
length $name > 1 ? : |
|
506
|
1 |
2 |
unless my $documentation = $self->documentation |
|
509
|
0 |
2 |
unless (-e $documentation) |
|
510
|
0 |
0 |
unless eval "use $documentation; 1" |
|
515
|
0 |
2 |
unless open my $FH, '<', $documentation |
|
518
|
2 |
96 |
if $print and /^=(?:cut|head1)/ |
|
519
|
8 |
88 |
if $print |
|
520
|
2 |
94 |
if /^=head1 SYNOPSIS/ |
|
535
|
1 |
2 |
unless my $version = $self->version |
|
537
|
1 |
1 |
unless ($version =~ /^\d/) |
|
538
|
0 |
1 |
unless eval "require $version; 1" |
|
547
|
0 |
0 |
unless $reason =~ /^\d+$/ |
|
552
|
6 |
55 |
unless local $_ = $_[1] |
|
558
|
0 |
13 |
unless local $_ = $_[1] |