File Coverage

lib/Spreadsheet/Engine/Function/EVEN.pm

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

package Spreadsheet::Engine::Function::EVEN;

use strict;
use warnings;

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

sub calculate {
  my ($self, $value) = @_;
  my $result = $value < 0 ? -$value : $value;
  my $extra = $result - int($result);
  if ($extra) {
    $result = int($result + 1) + (($result + 1) % 2);
  } else {    # integer
    $result = $result + ($result % 2);
  }
  $result = -$result if $value < 0;
  return $result;
}

1;

__END__