| line |
true |
false |
branch |
|
22
|
0 |
0 |
if (exists $$self{'description'} and ref $$self{'description'}) |
|
26
|
0 |
0 |
if (exists $$self{'options'}) |
|
27
|
0 |
0 |
unless (UNIVERSAL::isa($$self{'options'}, 'HASH')) |
|
31
|
0 |
0 |
unless (grep {/\bh(elp)?\b/;} keys %{$$self{'options'};} or $$self{'noautohelp'}) |
|
34
|
0 |
0 |
unless GetOptions $$self{'_opts'}, keys %{$$self{'options'};} |
|
37
|
0 |
0 |
if (exists $$self{'params'}) |
|
38
|
0 |
0 |
unless (UNIVERSAL::isa($$self{'params'}, 'ARRAY')) |
|
47
|
0 |
0 |
unless ($param =~ /^\w+[\*\+\?]?$/) |
|
51
|
0 |
0 |
if ($param =~ /[\*\+]$/) { } |
|
|
0 |
0 |
elsif ($param =~ /\?$/) { } |
|
52
|
0 |
0 |
if ($found_optional_param) |
|
55
|
0 |
0 |
if ($found_multi_value_param) |
|
59
|
0 |
0 |
if $param =~ /\*$/ |
|
61
|
0 |
0 |
if ($found_multi_value_param) |
|
67
|
0 |
0 |
if (not $param =~ /[\?\*]/ and $found_optional_param) |
|
74
|
0 |
0 |
if (grep({/[\w\+]$/;} @params) > @ARGV) |
|
81
|
0 |
0 |
if (@params > 1 and $params[0] =~ /[\+\*]$/ and $shifting) |
|
87
|
0 |
0 |
$shifting ? : |
|
88
|
0 |
0 |
if ($key =~ /[\+\*]$/) { } |
|
93
|
0 |
0 |
$shifting ? : |
|
96
|
0 |
0 |
if (exists $$self{'_opts'}{$key}) |
|
103
|
0 |
0 |
if (exists $$self{'_opts'}{'help'} and $$self{'_opts'}{'help'}) |
|
117
|
0 |
0 |
if ($key =~ /_/) |
|
119
|
0 |
0 |
if (not exists $$self{'_opts'}{$key} and exists $$self{'_opts'}{$alt_key}) |
|
131
|
0 |
0 |
if (UNIVERSAL::isa($retval, 'ARRAY') and wantarray) { } |
|
154
|
0 |
0 |
if $$self{'options'} |
|
156
|
0 |
0 |
if ($param =~ /^(.*)\+$/) { } |
|
|
0 |
0 |
elsif ($param =~ /^(.*)\*$/) { } |
|
|
0 |
0 |
elsif ($param =~ /^(.*)\?$/) { } |
|
170
|
0 |
0 |
if $$self{'description'} |
|
172
|
0 |
0 |
if ($$self{'options'}) |
|
178
|
0 |
0 |
if ($opt =~ /^(.*)=([sif])([\%\@])?$/) { } |
|
|
0 |
0 |
elsif ($opt =~ /^(.*)([\+])$/) { } |
|
188
|
0 |
0 |
length $_ > 1 ? : |
|
194
|
0 |
0 |
if ($arg_type and $option eq '%') { } |
|
|
0 |
0 |
elsif ($arg_type) { } |
|
201
|
0 |
0 |
if $option eq '+' |
|
202
|
0 |
0 |
if $option eq '@' or $option eq '%' |
|
213
|
0 |
0 |
if $msg |