| 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] ? :
|