File Coverage

lib/Spreadsheet/Engine/Function/TRUNC.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	2	100.0
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	24	24	100.0

package Spreadsheet::Engine::Function::TRUNC;

use strict;
use warnings;

use base 'Spreadsheet::Engine::Fn::math2';

sub calculate {
  my ($self, $num, $digits) = @_;
  if ($digits >= 0) {
    my $decimalscale = 10**int $digits;
    my $scaledvalue  = int($num * $decimalscale);
    return $scaledvalue / $decimalscale;
  }

  # $digits < 0
  my $decimalscale = 10**int -$digits;
  my $scaledvalue  = int($num / $decimalscale);
  return $scaledvalue * $decimalscale;
}

1;

__END__