| line |
true |
false |
branch |
|
25
|
3 |
2 |
if (ref $_[0] eq 'HASH') { }
|
|
31
|
0 |
5 |
unless $$opts{'on_invalid'} =~ /\A(croak|carp|warn|die|bool|str)\z/
|
|
35
|
3 |
2 |
if ($$opts{'named'}) { }
|
|
38
|
0 |
6 |
unless /\A[A-Za-z_]\w*\z/
|
|
53
|
3 |
2 |
if ($$opts{'named'}) { }
|
|
60
|
4 |
1 |
unless $$opts{'on_invalid'} eq 'bool'
|
|
65
|
6 |
4 |
if ($$opts{'named'}) { }
|
|
72
|
2 |
8 |
$$opts{'on_invalid'} eq 'bool' ? :
|
|
82
|
5 |
5 |
if $mentioned_mods{$mod}++
|
|
86
|
5 |
0 |
$$stmt[1] && @{$$stmt[1];} ? :
|
|
89
|
10 |
5 |
if $$cd{'module_statements'}{$mod}
|
|
91
|
0 |
5 |
if $mentioned_mods{$mod}++
|
|
95
|
4 |
4 |
if $mentioned_vars{$var}++
|
|
97
|
4 |
0 |
defined $val ? :
|
|
100
|
6 |
4 |
if ($$opts{'on_invalid'} =~ /\A(croak|carp|warn|die)\z/) { }
|
|
101
|
6 |
0 |
$$opts{'on_invalid'} =~ /\A(croak|carp)\z/ ? :
|
|
103
|
0 |
6 |
if $i and $$opts{'on_invalid'} =~ /\A(carp|warn)\z/
|
|
108
|
2 |
2 |
if ($return_type eq 'str') { }
|
|
118
|
1 |
4 |
if ($$opts{'on_invalid'} eq 'bool') { }
|
|
|
1 |
3 |
elsif ($$opts{'on_invalid'} eq 'str') { }
|
|
127
|
0 |
5 |
if ($DEBUG)
|
|
133
|
0 |
5 |
if $@
|