| line |
true |
false |
branch |
|
79
|
0 |
15 |
unless $self->{'options'} |
|
89
|
11 |
39 |
if ($desc eq "spacer") |
|
90
|
2 |
9 |
if (ref $opt->{'spec'}) { } |
|
96
|
5 |
6 |
length $_ ? : |
|
109
|
15 |
24 |
if (defined $i) |
|
113
|
39 |
0 |
length $primary > 1 ? : |
|
114
|
15 |
24 |
if $short |
|
118
|
0 |
39 |
if (@names) |
|
120
|
0 |
0 |
length $_ > 1 ? : |
|
124
|
0 |
0 |
if (exists $opt->{'constraint'}{'default'} and $self->{'show_defaults'}) |
|
126
|
0 |
0 |
!length($dflt) ? : |
|
|
0 |
0 |
!defined($dflt) ? : |
|
152
|
15 |
24 |
@names && length $names[0] eq 1 ? : |
|
156
|
39 |
0 |
length $primary > 1 ? : |
|
157
|
15 |
24 |
if $short |
|
172
|
45 |
3 |
if length $desc <= $max_length |
|
177
|
1 |
4 |
unless $idx >= 0 |
|
191
|
62 |
34 |
if (length $assign_spec < 2) |
|
193
|
4 |
58 |
if $assign_spec eq "!" |
|
200
|
10 |
24 |
if ($argument =~ /^[io]/ or $assign_spec =~ /^:[+0-9]/) { } |
|
|
4 |
20 |
elsif ($argument =~ /^f/) { } |
|
206
|
16 |
18 |
if (length $assign_spec > 2) |
|
208
|
8 |
8 |
if ($desttype eq '@') { } |
|
|
8 |
0 |
elsif ($desttype eq '%') { } |
|
216
|
10 |
24 |
if ($optional) |
|
265
|
2 |
0 |
$_[0] ? : |