| line |
true |
false |
branch |
|
139
|
0 |
0 |
if defined $msg |
|
140
|
0 |
0 |
if defined $summary |
|
141
|
0 |
0 |
if defined $usage |
|
142
|
0 |
0 |
unless keys %usage |
|
157
|
0 |
0 |
if show_help() |
|
160
|
0 |
1 |
if (/^-(\w+)$/) |
|
168
|
1 |
0 |
ref $o{$_} eq 'ARRAY' ? : |
|
169
|
0 |
1 |
if $spec =~ /\|(\w+)=/ |
|
170
|
0 |
1 |
if $desc =~ s/^\[([A-Z_-]+)\]\s*// |
|
175
|
0 |
0 |
if $def[0] |
|
179
|
0 |
0 |
if @def > 0 |
|
185
|
1 |
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'}
} |
|
210
|
0 |
0 |
unless defined $o{-'autohelp'} |
|
211
|
0 |
0 |
ref $o{-'autohelp'} eq 'CODE' ? : |
|
212
|
0 |
0 |
if $show_help |