| line |
true |
false |
branch |
|
55
|
0 |
1 |
unless (ref $list || '') eq 'ARRAY' |
|
67
|
1 |
12 |
if ($opt =~ /^-/) { } |
|
68
|
0 |
1 |
unless @args |
|
70
|
0 |
1 |
unless my $do = $opt_do{$opt} |
|
76
|
1 |
11 |
if (not defined $type) { } |
|
|
4 |
7 |
elsif ($type =~ s/^(\@|\%)//) { } |
|
80
|
3 |
1 |
$1 eq '@' ? : |
|
90
|
6 |
6 |
if (@def) { } |
|
|
2 |
4 |
elsif ($type =~ /^[10]/) { } |
|
|
2 |
2 |
elsif ($type =~ s/^\!//) { } |
|
92
|
1 |
1 |
$setup{'form'} eq 'ARRAY' ? : |
|
|
2 |
4 |
$setup{'form'} ? : |
|
110
|
0 |
10 |
unless $setup{'type'} ||= $type_map{$type} |
|
113
|
6 |
4 |
if @short |
|
114
|
0 |
10 |
if @spec |
|
133
|
2 |
2 |
unless my(@arg) = @_ |
|
135
|
0 |
2 |
unless @arg == 1 |
|
138
|
1 |
1 |
if @_ |
|
157
|
0 |
1 |
unless delete $installed{$key} |
|
197
|
0 |
1 |
unless my $order = $$self{'defined_options'} |
|
226
|
3 |
2 |
if ($$item{'type'} ne 'boolean') |
|
228
|
1 |
2 |
if (my $f = $$item{'form'}) |
|
229
|
0 |
1 |
if ($f eq 'HASH') { } |
|
238
|
1 |
2 |
if $$item{'type'} ne 'string' |
|
243
|
3 |
2 |
if (defined $$item{'default'} and not $canon =~ /^no_/) |