| line |
true |
false |
branch |
|
28
|
2 |
4 |
unless exists $args{'profile'} |
|
41
|
6 |
7 |
if @_ |
|
47
|
6 |
1 |
if @_ |
|
53
|
6 |
1 |
if @_ |
|
59
|
6 |
6 |
if @_ |
|
68
|
4 |
2 |
if ($results->has_invalid or $results->has_missing) |
|
90
|
0 |
0 |
if ($invalid or $missing) |
|
92
|
0 |
0 |
if $invalid |
|
93
|
0 |
0 |
if $missing |
|
98
|
0 |
0 |
if ($$options{'help'}) |
|
127
|
1 |
1 |
if ($$right{'profile'}{$flag} and ref $$right{'profile'}{$flag} eq 'HASH') |
|
132
|
1 |
0 |
unless exists $$left{'profile'}{$flag}{$_} |
|
149
|
0 |
0 |
if (${$self->profile;}{'defaults'}{$$item[2]}) |
|
167
|
6 |
6 |
unless exists $$profile{$spec} |
|
168
|
6 |
0 |
if (ref $$profile{$spec} eq 'ARRAY') |
|
170
|
0 |
7 |
if ref $_ ne 'ARRAY' |
|
186
|
6 |
1 |
unless exists $profile{$spec} |
|
193
|
14 |
4 |
unless exists $$profile{$spec} |
|
194
|
0 |
4 |
if ref $$profile{$spec} ne 'HASH' |
|
207
|
0 |
6 |
unless (GetOptions \%parsed_options, @{$options;}) |