| line |
true |
false |
branch |
|
18
|
0 |
51 |
unless ref $x |
|
22
|
0 |
51 |
if $x->is_nan |
|
28
|
1 |
50 |
if ($y->sign eq "-") |
|
33
|
44 |
7 |
if ($y < 1000) |
|
110
|
9 |
40 |
if $index == 0 or $number->is_zero |
|
111
|
8 |
32 |
if $index == 1 |
|
114
|
16 |
16 |
if ($index & Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
) |
|
118
|
16 |
16 |
unless $number->is_one |
|
135
|
51 |
7 |
if $index == 0 |
|
136
|
0 |
58 |
if $index > 2 |
|
138
|
1 |
57 |
if $number->is_zero and not $only |
|
139
|
10 |
47 |
if $number->is_one |
|
140
|
20 |
27 |
if $number < scalar @$SMALL |
|
145
|
17 |
10 |
unless $hundert->is_zero |
|
147
|
17 |
10 |
if $rc ne "" |
|
148
|
9 |
18 |
if $rem->is_zero |
|
149
|
3 |
15 |
if $rem < scalar @$SMALL |
|
153
|
14 |
1 |
unless $rem->is_zero |
|
154
|
14 |
1 |
if $rc ne "" |
|
155
|
15 |
0 |
unless $zehn->is_zero |