| line |
true |
false |
branch |
|
28
|
13 |
5 |
if (ref $_[0] eq 'HASH') { }
|
|
35
|
1 |
17 |
unless $opt_on_invalid =~ /\A(croak|carp|warn|die|bool|str)\z/
|
|
42
|
1 |
16 |
if keys %$opts
|
|
45
|
2 |
14 |
if ($opt_disable)
|
|
46
|
0 |
2 |
$opt_on_invalid eq 'str' ? :
|
|
58
|
7 |
7 |
if ($opt_named) { }
|
|
62
|
0 |
14 |
unless /\A[A-Za-z_][A-Za-z0-9_]*\z/
|
|
79
|
49 |
8 |
if ($opt_on_invalid =~ /\A(croak|carp|warn|die)\z/) { }
|
|
80
|
49 |
0 |
$opt_on_invalid =~ /\A(croak|carp)\z/ ? :
|
|
84
|
4 |
4 |
if ($opt_on_invalid eq 'bool') { }
|
|
101
|
13 |
1 |
unless $opt_on_invalid eq 'bool'
|
|
103
|
10 |
4 |
unless ($opt_allow_extra)
|
|
105
|
5 |
5 |
if ($opt_named) { }
|
|
118
|
21 |
5 |
unless (grep {$argname eq $_;} @$opt_optional_params)
|
|
120
|
11 |
10 |
if ($opt_named) { }
|
|
129
|
14 |
12 |
if ($opt_named) { }
|
|
140
|
2 |
24 |
$opt_on_invalid eq 'bool' ? :
|
|
144
|
0 |
26 |
unless $cd->{'v'} == 2
|
|
146
|
27 |
45 |
unless $mod_rec->{'phase'} eq 'runtime'
|
|
147
|
18 |
27 |
if grep {$_->{'name'} eq $mod_rec->{'name'} unless $mod_rec->{'use_statement'} and $_->{'use_statement'} and $_->{'use_statement'} eq $mod_rec->{'use_statement'};} @modules_for_all_args
|
|
148
|
37 |
12 |
unless $mod_rec->{'use_statement'} and $_->{'use_statement'} and $_->{'use_statement'} eq $mod_rec->{'use_statement'}
|
|
153
|
0 |
0 |
if $mentioned_vars{$var}++
|
|
155
|
0 |
0 |
defined $val ? :
|
|
158
|
0 |
26 |
if $i and $opt_on_invalid =~ /\A(carp|warn)\z/
|
|
164
|
1 |
13 |
if ($opt_on_invalid eq 'bool') { }
|
|
171
|
0 |
14 |
if ($DEBUG)
|
|
177
|
0 |
14 |
if $@
|