The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
123456789101112131415 package Local::Round;use parent 'Exporter';use strict;use warnings;use Math::Round qw( nearest );our @EXPORT_OK = qw(round);sub round { my ( $number, $places ) = @_; return nearest( 10**-$places, $number );}1;
package
Local::Round;
use
parent
'Exporter'
;
strict;
warnings;
Math::Round
qw( nearest )
our
@EXPORT_OK
=
qw(round)
sub
round {
my
(
$number
,
$places
) =
@_
return
nearest( 10**-
);
}
1;