| line |
true |
false |
branch |
|
92
|
1 |
19 |
unless $places == int $places |
|
110
|
4 |
10 |
if (index($string, $_) == 0) |
|
127
|
0 |
14 |
unless @$digits |
|
129
|
0 |
14 |
if do {
BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55\x05"}
grep {not length $_;} @$digits
} |
|
130
|
1 |
13 |
if @$digits != &uniq(@$digits) |
|
134
|
10 |
3 |
if @lengths == 1 |
|
136
|
1 |
2 |
unless UDCode::is_udcode(@$digits) |
|
146
|
6 |
8 |
if (ref $digit_set) { } |
|
147
|
0 |
6 |
unless &reftype($digit_set) eq "ARRAY" |
|
159
|
8 |
14 |
unless defined $value and $value =~ /\A\d+\z/ |
|
165
|
2 |
12 |
if (@digits == 1) { } |
|
172
|
12 |
20 |
unless $value |
|
176
|
4 |
10 |
if $arg->{'postencode'} |
|
184
|
1 |
21 |
unless defined $string |
|
186
|
6 |
15 |
if $arg->{'predecode'} |
|
193
|
2 |
73 |
unless exists $digit_value{$digit} |
|
199
|
20 |
53 |
@digits == 1 ? : |