| line |
true |
false |
branch |
|
87
|
1 |
3 |
unless defined $charset |
|
89
|
0 |
3 |
if $charset =~ /^gb/i or $charset =~ /^euc-cn$/i |
|
90
|
1 |
2 |
if $charset =~ /big5/i |
|
91
|
3 |
0 |
if exists ${"${class}::MAP";}{lc $charset} |
|
139
|
4 |
8 |
if not defined $input && $input =~ /\A[\-\.\d]+\z/msx or $input >= 1000000000000000 |
|
155
|
0 |
8 |
if ($input =~ s/\.(.*)//) |
|
159
|
0 |
8 |
if $input =~ s/^\-// |
|
166
|
8 |
0 |
$] >= 5.005 ? : |
|
173
|
28 |
20 |
unless $tmp or $n |
|
174
|
4 |
0 |
unless $n == 0 and $tmp =~ /$zero/ or $_ == 1 and $n == 1 and not $tmp |
|
176
|
20 |
0 |
if $n |
|
179
|
12 |
0 |
unless $tmp eq $dig[0] |
|
180
|
8 |
4 |
if $tmp |
|
181
|
0 |
8 |
if $num < 1000 and $mag != $#chunks and not $out =~ /$zero/ |
|
187
|
8 |
0 |
unless $out eq $dig[0] |
|
189
|
0 |
8 |
if ($delta) |