| line |
true |
false |
branch |
|
86
|
1 |
3 |
unless defined $charset |
|
88
|
0 |
3 |
if $charset =~ /^gb/i or $charset =~ /^euc-cn$/i |
|
89
|
1 |
2 |
if $charset =~ /big5/i |
|
90
|
3 |
0 |
if exists ${"${class}::MAP";}{lc $charset} |
|
138
|
4 |
8 |
if not defined $input && $input =~ /\A[\-\.\d]+\z/msx or $input >= '1000000000000000' |
|
154
|
0 |
8 |
if ($input =~ s/\.(.*)//) |
|
158
|
0 |
8 |
if $input =~ s/^\-// |
|
165
|
8 |
0 |
$] >= 5.005 ? : |
|
172
|
28 |
20 |
unless $tmp or $n |
|
173
|
4 |
0 |
unless $n == 0 and $tmp =~ /$zero/ or $_ == 1 and $n == 1 and not $tmp |
|
175
|
20 |
0 |
if $n |
|
178
|
12 |
0 |
unless $tmp eq $dig[0] |
|
179
|
8 |
4 |
if $tmp |
|
180
|
0 |
8 |
if $num < 1000 and $mag != $#chunks and not $out =~ /$zero/ |
|
186
|
8 |
0 |
unless $out eq $dig[0] |
|
188
|
0 |
8 |
if ($delta) |