| line |
true |
false |
branch |
|
26
|
14 |
627 |
if (defined $args{'spec'}) |
|
47
|
130 |
511 |
$args{'multiple'} ? : |
|
|
26 |
615 |
$args{'mapping'} ? : |
|
|
203 |
438 |
$args{'required'} ? : |
|
|
25 |
616 |
$args{'unique'} ? : |
|
64
|
1 |
13 |
if ($dsl =~ s/^\+//) |
|
69
|
14 |
0 |
if ($dsl =~ s/^ ($name_re) //x) { } |
|
81
|
4 |
10 |
if (@aliases) |
|
86
|
7 |
7 |
if ($dsl =~ s/^=//) |
|
89
|
5 |
2 |
if ($dsl =~ s/^([isf])//) |
|
91
|
1 |
4 |
if ($getopt_type eq 'i') { } |
|
|
1 |
3 |
elsif ($getopt_type eq 'f') { } |
|
|
3 |
0 |
elsif ($getopt_type eq 's') { } |
|
105
|
1 |
13 |
if ($type eq 'flag' and $dsl =~ s/^\+//) { } |
|
|
1 |
12 |
elsif ($type eq 'string' and $dsl =~ s/^\@//) { } |
|
|
1 |
19 |
elsif ($type eq 'string' and $dsl =~ s/^\%//) { } |
|
121
|
2 |
1 |
if ($1 eq '+') { } |
|
123
|
0 |
2 |
if ($getopt_type and $type ne $getopt_type) |
|
132
|
9 |
5 |
if ($dsl =~ s/^\s*--\s*(.*)//) |
|
137
|
0 |
14 |
if (length $dsl) |