line |
true |
false |
branch |
64
|
4640 |
0 |
index('$@', $sigil) >= 0 ? :
|
65
|
3712 |
928 |
if ($sigil eq '$') { }
|
|
928 |
0 |
elsif ($sigil eq '@') { }
|
92
|
0 |
0 |
if scalar @_ < 3
|
93
|
0 |
0 |
@$args < 3 ? :
|
103
|
0 |
0 |
if ($arg =~ /^\s*$/)
|
112
|
0 |
0 |
if (defined $val)
|
124
|
0 |
0 |
unless $what
|
133
|
0 |
0 |
unless ($what)
|
158
|
0 |
0 |
exists $opts->{'what'} ? :
|
159
|
0 |
0 |
exists $opts->{'name'} ? :
|
160
|
0 |
0 |
exists $opts->{'value'} ? :
|
178
|
0 |
0 |
if $self->{'subcmd_setting_key'}
|
187
|
0 |
0 |
if (not defined $bool) { }
|
|
0 |
0 |
elsif ($bool) { }
|
248
|
0 |
0 |
$settings{$self->subcmd_setting_key} ? :
|
268
|
0 |
0 |
if ($self->{'short_help'}) { }
|