| line |
true |
false |
branch |
|
137
|
0 |
0 |
if defined $msg |
|
138
|
0 |
0 |
if defined $summary |
|
139
|
0 |
0 |
if defined $usage |
|
140
|
0 |
0 |
unless keys %usage |
|
155
|
0 |
0 |
if show_help() |
|
158
|
0 |
2 |
if (/^-(\w+)$/) |
|
166
|
2 |
0 |
ref $o{$_} eq 'ARRAY' ? : |
|
167
|
0 |
2 |
if $spec =~ /\|(\w+)=/ |
|
168
|
0 |
2 |
if $desc =~ s/^\[([A-Z_-]+)\]\s*// |
|
173
|
0 |
0 |
if $def[0] |
|
177
|
0 |
0 |
if @def > 0 |
|
183
|
2 |
0 |
unless !defined($type) || $type eq '$' and do {
$usage{$item} .= " (default: $def[0])" if $def[0];
${"$var";} = shift @def;
$opt{$spec} = *{"$var";}{'SCALAR'}
} or $type eq '@' and do {
$usage{$item} .= ' (default: ' . join(',', @def) . ')' if @def > 0;
@{"$var";} = @def;
$opt{$spec} = *{"$var";}{'ARRAY'}
} or $type eq '%' and do {
(%{"$var";}) = @def;
$opt{$spec} = *{"$var";}{'HASH'}
} |
|
208
|
0 |
0 |
unless defined $o{-'autohelp'} |
|
209
|
0 |
0 |
ref $o{-'autohelp'} eq 'CODE' ? : |
|
210
|
0 |
0 |
if $show_help |