| line |
true |
false |
branch |
|
27
|
0 |
0 |
if ($$options{'help'}) { } |
|
|
0 |
0 |
elsif ($$self{'name'} ne '') { } |
|
37
|
0 |
0 |
if $$options{'args'} |
|
48
|
0 |
0 |
unless ref $arguments |
|
59
|
0 |
0 |
if ($opt_type) { } |
|
60
|
0 |
0 |
unless $opt_type eq 'HASH' |
|
76
|
0 |
0 |
unless $accepted{$value} |
|
81
|
0 |
0 |
if ($value eq 'type') { } |
|
|
0 |
0 |
elsif ($value eq 'condition' and !$opt_ref || $opt_ref ne 'CODE') { } |
|
|
0 |
0 |
elsif ($value eq 'help' and $opt_ref) { } |
|
|
0 |
0 |
elsif ($value eq 'aliases' and ($opt_ref and $opt_ref ne 'ARRAY')) { } |
|
|
0 |
0 |
elsif ($value eq 'to_stash' and ($opt_ref and $opt_ref ne 'ARRAY')) { } |
|
|
0 |
0 |
elsif ($value eq 'required') { } |
|
|
0 |
0 |
elsif ($value eq 'default') { } |
|
|
0 |
0 |
elsif ($value eq 'error_msg' and $opt_ref) { } |
|
|
0 |
0 |
elsif ($value eq 'conflicts_with' and ($opt_ref and $opt_ref ne 'ARRAY')) { } |
|
82
|
0 |
0 |
unless $opt_ref or $TYPES{lc $$options{$value}} |
|
98
|
0 |
0 |
if ($accepted{'default'}) { } |
|
106
|
0 |
0 |
if ($accepted{'required'}) { } |
|
132
|
0 |
0 |
if (my $default = $$self{'args'}{$arg}{'default'}) |
|
134
|
0 |
0 |
unless (defined $$options_ref{$arg}) |
|
139
|
0 |
0 |
if (my $stashed = $$self{'args'}{$arg}{'to_stash'}) |
|
140
|
0 |
0 |
ref $stashed ? : |
|
159
|
0 |
0 |
unless defined $$self{'args'} |
|
165
|
0 |
0 |
if (defined $$self{'args'}{$token}) { } |
|
174
|
0 |
0 |
unless ref $aliases |
|
178
|
0 |
0 |
if ($alias and $token eq $alias) |
|
187
|
0 |
0 |
unless keys %{$arg_ref;} |
|
190
|
0 |
0 |
if (defined $$self{'args'}{$arg_real_name}{'prompt'}) |
|
191
|
0 |
0 |
unless ($val) |
|
193
|
0 |
0 |
defined $$self{'args'}{$arg_real_name}{'default'} ? : |
|
198
|
0 |
0 |
if $c |
|
208
|
0 |
0 |
if (defined $$arg_ref{'type'}) |
|
214
|
0 |
0 |
if $val eq '1' |
|
216
|
0 |
0 |
unless (defined $val and $TYPES{$$arg_ref{'type'}}($val)) |
|
225
|
0 |
0 |
if (defined $$self{'args'}{$arg_real_name}{'to_stash'}) |
|
226
|
0 |
0 |
if (ref $$self{'args'}{$arg_real_name}{'to_stash'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($$self{'args'}{$arg_real_name}{'to_stash'} ne '') { } |