The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

package Local::Round;
use strict;
use Math::Round qw( nearest );
our @EXPORT_OK = qw(round);
sub round {
my ( $number, $places ) = @_;
return nearest( 10**-$places, $number );
}
1;