| line |
true |
false |
branch |
|
88
|
1 |
3 |
unless defined $charset |
|
90
|
0 |
3 |
if $charset =~ /^gb/iu or $charset =~ /^euc-cn$/iu |
|
91
|
1 |
2 |
if $charset =~ /big5/iu |
|
92
|
3 |
0 |
if exists ${"${class}::MAP";}{lc $charset} |
|
142
|
4 |
8 |
if not defined $input && $input =~ /\A[\-\.\d]+\z/msux or $input >= '1000000000000000' |
|
157
|
0 |
8 |
if ($input =~ s/\.(.*)//u) |
|
161
|
0 |
8 |
if $input =~ s/^\-//u |
|
168
|
8 |
0 |
$] >= 5.005 ? : |
|
175
|
28 |
20 |
unless $tmp or $n |
|
176
|
4 |
0 |
unless $n == 0 and $tmp =~ /$zero/u or $_ == 1 and $n == 1 and not $tmp |
|
178
|
20 |
0 |
if $n |
|
181
|
12 |
0 |
unless $tmp eq $dig[0] |
|
182
|
8 |
4 |
if $tmp |
|
183
|
0 |
8 |
if $num < 1000 and $mag != $#chunks and not $out =~ /$zero/u |
|
189
|
8 |
0 |
unless $out eq $dig[0] |
|
191
|
0 |
8 |
if ($delta) |
|
208
|
0 |
0 |
if not defined $number && $number =~ /\A\d+\z/msux or $number < 1 or $number > '999999999999' |