line |
true |
false |
branch |
72
|
0 |
225568 |
unless (defined $_[0] and defined $_[1]) |
75
|
0 |
0 |
defined $_ ? : |
80
|
25144 |
200424 |
if $_[0] eq $_[1] |
82
|
200368 |
56 |
if ($_[0] =~ /\./ or $_[1] =~ /\./) { } |
85
|
1095 |
399641 |
unless /\./ |
87
|
29440 |
170928 |
if $_[0] - $_[1] > 1 |
88
|
30195 |
140733 |
if $_[0] - $_[1] < -1 |
95
|
56 |
140733 |
if $can_rely_on_native and $native != 0 |
144
|
890 |
30 |
&_bigfloatcmp($l, $r) >= 0 ? : |
154
|
8 |
35 |
&_bigfloatcmp($l, $r) <= 0 ? : |
176
|
355 |
359 |
if ($r =~ /\.\d+0$/) { } |
187
|
0 |
179 |
unless (defined $l) |
190
|
3 |
176 |
if (defined $r) { } |
191
|
0 |
3 |
if ($r eq $l) { } |
|
0 |
3 |
elsif ($r > int($l) + 1) { } |
200
|
0 |
179 |
if ($l == $r) { } |
204
|
31 |
148 |
if (&_bigfloatlt($l, $try) and &_bigfloatlt($try, $r)) |
208
|
31 |
148 |
if $ret |
215
|
1 |
295 |
unless /\./ |
223
|
148 |
2489 |
if (substr($l, $i, 1) ne substr($r, $i, 1)) |
231
|
147 |
1 |
if ($ret =~ /\./) |
242
|
147 |
1 |
if ($ret =~ /\./) |
248
|
2064 |
148 |
if (&_bigfloatlt($l, $try) and &_bigfloatlt($try, $r)) { } |