| line |
true |
false |
branch |
|
26
|
18 |
721 |
if (defined $args{'spec'}) |
|
47
|
141 |
598 |
$args{'multiple'} ? : |
|
|
28 |
711 |
$args{'mapping'} ? : |
|
|
225 |
514 |
$args{'required'} ? : |
|
|
27 |
712 |
$args{'unique'} ? : |
|
64
|
1 |
17 |
if ($dsl =~ s/^\+//) |
|
69
|
18 |
0 |
if ($dsl =~ s/^ ($name_re) //x) { } |
|
81
|
4 |
14 |
if (@aliases) |
|
86
|
7 |
11 |
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 |
17 |
if ($type eq 'flag' and $dsl =~ s/^\+//) { } |
|
|
1 |
16 |
elsif ($type eq 'string' and $dsl =~ s/^\@//) { } |
|
|
1 |
27 |
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
|
12 |
6 |
if ($dsl =~ s/^\s*--\s*(.*)//s) |
|
137
|
0 |
18 |
if (length $dsl) |