| line |
true |
false |
branch |
|
42
|
0 |
15 |
if $params{'default_num'} and $spec_type ne ':' |
|
45
|
8 |
7 |
$spec_type =~ /[:=]/ ? : |
|
55
|
0 |
15 |
unless exists $$params{'aliases'} |
|
56
|
0 |
15 |
unless ref $$params{'aliases'} eq 'ARRAY' |
|
59
|
32 |
2 |
if defined $_ |
|
73
|
4 |
11 |
if defined $$params{'val_required'} and $$params{'val_required'} == 0 |
|
74
|
4 |
7 |
if $$params{'val_required'} |
|
75
|
1 |
6 |
if $$params{'negatable'} |
|
76
|
0 |
6 |
unless defined $$params{'opt_type'} |
|
77
|
1 |
5 |
if $$params{'opt_type'} =~ /^incr/ |
|
78
|
5 |
0 |
if $$params{'opt_type'} eq 'flag' |
|
79
|
0 |
0 |
if defined $$params{'default_num'} or defined $$params{'val_type'} or defined $$params{'destination'} or defined $$params{'dest_type'} |
|
90
|
0 |
8 |
unless my $val_type = $DATA_TYPE_MAP{lc($$params{'val_type'} || 'str')} |
|
94
|
1 |
7 |
if $$params{'default_num'} |
|
95
|
1 |
7 |
if $$params{'opt_type'} =~ /^incr/ and not $$params{'val_type'} |
|
98
|
5 |
3 |
!$$params{'dest_type'} ? : |
|
99
|
0 |
8 |
unless defined $dest_type |
|
104
|
2 |
6 |
if (defined $$params{'min_vals'} or defined $$params{'max_vals'}) { } |
|
|
0 |
6 |
elsif (defined $$params{'num_vals'}) { } |
|
105
|
0 |
2 |
if $$params{'default_num'} |
|
107
|
1 |
1 |
if defined $$params{'min_vals'} |
|
108
|
2 |
0 |
defined $$params{'max_vals'} ? : |
|
|
2 |
0 |
if exists $$params{'max_vals'} |