| line |
true |
false |
branch |
|
40
|
8 |
0 |
if exists &{$c . '::_NEW';} |
|
41
|
4 |
4 |
if exists &{$c . '::BUILD';} |
|
43
|
0 |
8 |
if (exists &{$c . '::DOES';}) |
|
50
|
7 |
0 |
@_ > 1 ? : |
|
|
7 |
0 |
@_ ? : |
|
64
|
4 |
0 |
@_CLASS > 1 ? : |
|
65
|
0 |
4 |
if exists $OptArgs2::Arg::_FIELDS->{'FIELDS'} |
|
67
|
0 |
7 |
if (my(@missing) = grep({not exists $_[0]{$_};} "isa")) |
|
72
|
7 |
0 |
if exists $_[0]{'cmd'} and ref $_[0]{'cmd'} |
|
74
|
0 |
7 |
if $@ |
|
84
|
0 |
4 |
if (@_ > 1) |
|
86
|
0 |
0 |
if ref $_[0]{'cmd'} |
|
90
|
0 |
3 |
if @_ > 1 |
|
91
|
0 |
18 |
if @_ > 1 |
|
92
|
0 |
20 |
if @_ > 1 |
|
95
|
0 |
4 |
if @_ > 1 |
|
122
|
0 |
7 |
if $self->required and defined $self->default |
|
125
|
0 |
7 |
if $self->greedy and $self->isa eq "SubCmd" |
|
133
|
0 |
4 |
defined $value ? : |
|
136
|
3 |
1 |
if ($self->required) |
|
137
|
3 |
0 |
if length $comment |