| line |
true |
false |
branch |
|
58
|
2 |
10 |
if (@_ == 2 and ref $_[0] eq 'HASH' and ref $_[1] eq 'ARRAY') { } |
|
|
3 |
7 |
elsif (@_ == 1 and ref $_[0] eq 'HASH') { } |
|
|
1 |
6 |
elsif (@_ >= 1) { } |
|
70
|
1 |
0 |
if @_ |
|
73
|
2 |
10 |
if (defined $config) |
|
79
|
6 |
6 |
unless defined $options_spec |
|
99
|
26 |
6 |
if defined $default |
|
100
|
6 |
26 |
if (not defined $default) |
|
102
|
6 |
0 |
unless exists $$this{'mandatory'} |
|
152
|
56 |
0 |
if (defined $arg and ref $arg eq 'HASH' or not defined $arg) |
|
154
|
28 |
28 |
if ($hash_no == 1) |
|
156
|
28 |
0 |
if defined $arg |
|
160
|
28 |
28 |
if ($hash_no == 2) |
|
162
|
28 |
0 |
if defined $arg |
|
171
|
0 |
28 |
unless defined $wrong_syntax |
|
172
|
0 |
28 |
unless defined $help_usage |
|
174
|
0 |
28 |
@_ ? : |
|
182
|
15 |
13 |
unless (GetOptions \%used, 'help|h|?!', @options) |
|
187
|
9 |
19 |
if (exists $used{'help'}) |
|
198
|
12 |
7 |
unless (exists $used{$mandatory_opt}) |
|
208
|
0 |
19 |
if exists $used{$_} |
|
225
|
0 |
0 |
exists $$this{'configuration'} ? : |