| line |
true |
false |
branch |
|
43
|
1 |
19 |
unless $places == int $places |
|
61
|
4 |
10 |
if (index($string, $_) == 0) |
|
78
|
0 |
14 |
unless @$digits |
|
80
|
0 |
14 |
if do {
BEGIN {${^WARNING_BITS} = "TUUUUUUUUUQUUUU\025"}
grep {not length $_;} @$digits
} |
|
81
|
1 |
13 |
if @$digits != uniq(@$digits) |
|
85
|
10 |
3 |
if @lengths == 1 |
|
87
|
1 |
2 |
unless UDCode::is_udcode(@$digits) |
|
97
|
6 |
8 |
if (ref $digit_set) { } |
|
98
|
0 |
6 |
unless reftype $digit_set eq 'ARRAY' |
|
110
|
8 |
14 |
unless defined $value and $value =~ /\A\d+\z/ |
|
116
|
2 |
12 |
if (@digits == 1) { } |
|
123
|
12 |
20 |
unless $value |
|
127
|
4 |
10 |
if $$arg{'postencode'} |
|
135
|
1 |
21 |
unless defined $string |
|
137
|
6 |
15 |
if $$arg{'predecode'} |
|
143
|
2 |
73 |
unless exists $digit_value{$digit} |
|
148
|
20 |
53 |
@digits == 1 ? : |