B-DeparseTree
view release on metacpan or search on metacpan
lib/B/DeparseTree/TreeMain.pm view on Meta::CPAN
return $self->info_from_string('const: float +infinity',
$sv,
$self->maybe_parens("9**9**9", $cx, 22));
} else {
# negative infinity
return $self->info_from_string('const: float -infinity',
$sv,
$self->maybe_parens("-9**9**9", $cx, 21));
}
} elsif ($nv != $nv) {
# NaN
if (pack("F", $nv) eq pack("F", sin(9**9**9))) {
# the normal kind
return info_from_text($sv, $self, "sin(9**9**9)", 'const_Nan', {});
} elsif (pack("F", $nv) eq pack("F", -sin(9**9**9))) {
# the inverted kind
return info_from_text($sv, $self, $self->maybe_parens("-sin(9**9**9)", $cx, 21),
'const: float Nan invert', {});
} else {
# some other kind
my $hex = unpack("h*", pack("F", $nv));
( run in 0.301 second using v1.01-cache-2.11-cpan-fd5d4e115d8 )