| line |
true |
false |
branch |
|
23
|
0 |
12 |
ref $$arg_ref{'lang_obj'} && $$arg_ref{'lang_obj'}->can('maketext') ? : |
|
28
|
1 |
11 |
ref $$arg_ref{'array_ref'} ne 'ARRAY' ? : |
|
35
|
1 |
25 |
if $arg eq '--' |
|
37
|
0 |
25 |
$$arg_ref{'strict'} ? : |
|
39
|
23 |
2 |
if ($arg =~ s/$rg/$1/) { } |
|
41
|
12 |
11 |
defined $value ? : |
|
44
|
0 |
2 |
unless $quiet{$ident} |
|
49
|
0 |
12 |
if ($opts{$ident}{'help'} and $$arg_ref{'help_coderef'}) |
|
55
|
1 |
11 |
if (not keys %{$opts{$ident};} and $$arg_ref{'no_args_help'}) |
|
59
|
2 |
10 |
if (ref $$arg_ref{'known_only'} eq 'ARRAY') |
|
65
|
1 |
1 |
unless (exists $lookup{$k}) |
|
71
|
1 |
1 |
if $unknown |
|
74
|
2 |
10 |
if (ref $$arg_ref{'required'} eq 'ARRAY') |
|
78
|
1 |
1 |
unless (exists $opts{$ident}{$k}) |
|
84
|
1 |
1 |
if $missing |
|
87
|
2 |
10 |
if (ref $$arg_ref{'validate'} eq 'CODE') |
|
88
|
1 |
1 |
unless $$arg_ref{'validate'}($prm) |
|
91
|
2 |
10 |
if (ref $$arg_ref{'actions'} eq 'ARRAY') |
|
93
|
2 |
0 |
if (exists $opts{$ident}{$$k[0]}) |
|
94
|
1 |
1 |
if (ref $$k[1] eq 'CODE') { } |
|
112
|
2 |
25 |
unless exists $opts{ident $prm}{$name} |
|
113
|
0 |
25 |
if ref $opts{ident $prm}{$name} ne 'ARRAY' |
|
114
|
10 |
15 |
wantarray ? : |
|
127
|
2 |
0 |
wantarray ? : |
|
133
|
0 |
2 |
if ref $opts{ident $prm}{$name} ne 'ARRAY' |
|
139
|
0 |
2 |
if ref $opts{ident $prm}{$name} ne 'ARRAY' |
|
145
|
2 |
24 |
unless $name |
|
146
|
4 |
20 |
if @val |
|
157
|
3 |
3 |
if exists $opts{ident $prm}{$name} |