File Coverage

blib/lib/Float/Truncate.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	4	4	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	24	26	92.3

package Float::Truncate;

use strict;
use 5.008_005;
our $VERSION = '0.03';
use vars qw/@ISA @EXPORT @EXPORT_OK/;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = @EXPORT_OK = qw/truncate truncate_force/;

sub truncate {
    my ( $number, $length ) = @_;
    return $number unless defined $length;
    return sprintf "%.${length}f", $number;
}

sub truncate_force {
    my ( $number, $length ) = @_;
    return $number unless defined $length;

    $length = 10**$length;
    return int( $number * $length ) / $length;
}

1;
__END__