| line |
true |
false |
branch |
|
43
|
10 |
0 |
if exists &{$c . '::_NEW';} |
|
44
|
0 |
10 |
if exists &{$c . '::BUILD';} |
|
46
|
0 |
10 |
if (exists &{$c . '::DOES';}) |
|
53
|
14 |
0 |
@_ > 1 ? : |
|
|
14 |
0 |
@_ ? : |
|
67
|
5 |
0 |
@_CLASS > 1 ? : |
|
68
|
0 |
5 |
if exists $OptArgs2::Opt::_FIELDS->{'FIELDS'} |
|
70
|
0 |
14 |
if (my(@missing) = grep({not exists $_[0]{$_};} "isa")) |
|
75
|
0 |
14 |
if $@ |
|
83
|
0 |
6 |
if @_ > 1 |
|
84
|
0 |
6 |
if @_ > 1 |
|
85
|
0 |
15 |
if @_ > 1 |
|
88
|
0 |
1 |
if @_ > 1 |
|
91
|
0 |
1 |
if @_ > 1 |
|
118
|
0 |
14 |
if (exists $ref->{'ishelp'}) |
|
123
|
9 |
5 |
if ($ref->{'isa'} =~ /^Help/) |
|
135
|
0 |
0 |
if ($val == 1) { } |
|
|
0 |
0 |
elsif ($val == 2) { } |
|
148
|
0 |
14 |
unless (exists $isa2getopt{$ref->{'isa'}}) |
|
154
|
0 |
14 |
if ($ref->{'name'} =~ /_/) |
|
158
|
10 |
4 |
if $ref->{'alias'} |
|
169
|
0 |
6 |
if ($self->isa eq "Bool") |
|
170
|
0 |
0 |
if ($value) { } |
|
|
0 |
0 |
elsif (not defined $value) { } |
|
180
|
5 |
1 |
if (length $alias) |
|
187
|
1 |
5 |
if ($isa ne "Flag" and $isa ne "Bool" and $isa ne "Counter") |
|
188
|
0 |
1 |
defined $value ? : |
|
192
|
0 |
6 |
if ($self->required) |
|
193
|
0 |
0 |
if length $comment |