| line |
true |
false |
branch |
|
30
|
73 |
0 |
unless $params |
|
|
15 |
58 |
ref $self ? : |
|
32
|
0 |
73 |
if $$CUR_OPTS{'debug'} |
|
33
|
0 |
73 |
if $$CUR_OPTS{'debug'} |
|
35
|
0 |
73 |
unless $spec =~ /^ ([|a-zA-Z_-]+) ([=:!+]?) (.*) /x |
|
39
|
56 |
17 |
$2 ? : |
|
40
|
43 |
30 |
$3 ? : |
|
47
|
6 |
61 |
if ($arg_params{'negatable'}) |
|
61
|
20 |
47 |
wantarray ? : |
|
74
|
0 |
73 |
unless $spec =~ /$NAME_SPEC_QR/ |
|
81
|
61 |
22 |
length $_ == 1 && !$params{'short'} ? : |
|
118
|
26 |
42 |
unless $arg_spec |
|
121
|
1 |
41 |
unless $arg_spec =~ /$ARG_SPEC_QR/ |
|
127
|
13 |
28 |
if defined $5 |
|
128
|
13 |
28 |
if defined $6 |
|
130
|
0 |
41 |
if defined $incr_type and $opt_type ne ':' |
|
132
|
4 |
37 |
if (defined $incr_type) |
|
136
|
0 |
41 |
if defined $default_num and $opt_type ne ':' |
|
138
|
4 |
37 |
if (defined $default_num) |
|
142
|
0 |
41 |
if defined $val_type and not $opt_type =~ /[:=]/ |
|
145
|
0 |
41 |
if exists $params{'min_vals'} || exists $params{'max_vals'} and $opt_type ne '=' |
|
150
|
6 |
35 |
if (exists $params{'min_vals'} and not exists $params{'max_vals'}) |
|
154
|
33 |
8 |
if ($val_type) |
|
155
|
0 |
0 |
$val_type eq 'f' ? : |
|
|
0 |
0 |
$val_type eq 'o' ? : |
|
|
8 |
0 |
$val_type eq 'i' ? : |
|
|
25 |
8 |
$val_type eq 's' ? : |
|
164
|
24 |
17 |
if (defined $dest_type) |
|
165
|
21 |
0 |
$dest_type eq '@' ? : |
|
|
3 |
21 |
$dest_type eq '%' ? : |
|
186
|
27 |
46 |
if ($opt_type =~ /[+!]|^$/) |
|
187
|
1 |
26 |
if ($arg_spec) |
|
191
|
4 |
22 |
if ($opt_type eq '+') |
|
194
|
6 |
20 |
if ($opt_type eq '!') |
|
198
|
16 |
10 |
if ($opt_type eq '') |
|
206
|
31 |
15 |
if ($opt_type eq '=') { } |
|
|
15 |
0 |
elsif ($opt_type eq ':') { } |
|
216
|
4 |
42 |
unless ($arg_spec) |