File Coverage

lib/Spreadsheet/Engine/Function/FV.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	2	4	50.0
condition	1	2	50.0
subroutine	5	5	100.0
pod	2	2	100.0
total	25	28	89.2

package Spreadsheet::Engine::Function::FV;

use strict;
use warnings;

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

sub result_type { Spreadsheet::Engine::Value->new(type => 'n$') }

sub calculate {
  my ($self, $r, $n, $pmt, $pv, $type) = @_;
  $pv ||= 0;
  $type = $type ? 1 : 0;

  return -$pv - ($pmt * $n) if $r == 0;    # simple calculation if no interest
  return -(
    $pv * (1 + $r)**$n + $pmt * (1 + $r * $type) * ((1 + $r)**$n - 1) / $r);
}

1;

__END__