_modf() implementations - https://github.com/kraih/mojo/pull/1101

modf.pm

use POSIX ();

### shorter with POSIX::floor

sub _modf { my $t = POSIX::floor($_[0]); ($t, $_[0] - $t) }

### with optimization for the common case where argument is integer

sub _modf {
  return ($_[0], 0) if $_[0] == int $_[0];
  my $t = POSIX::floor($_[0]);
  return ($t, $_[0] - $t);
}

### original

# ($t, $f) = _modf($x)
# Decompose $x into $t + $f where $t is integer and 0 ≤ $f < 1
sub _modf {
  return ($_[0], 0) if $_[0] == int $_[0];

  my $x = $_[0];
  my $t = ($x >= 0) ? int $x : int $x - 1;
  return ($t, $x - $t);
}