File Coverage

lib/Spreadsheet/Engine/Fn/series.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	4	4	100.0
condition	9	10	90.0
subroutine	7	7	100.0
pod	4	4	100.0
total	51	52	98.0

package Spreadsheet::Engine::Fn::series;

use strict;
use warnings;

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

sub argument_count { -1 }

sub result {
  my $self        = shift;
  my $type        = '';
  my $calculator  = $self->calculate;
  my $accumulator = $self->accumulator;

  my $foperand = $self->foperand;
  while (@{$foperand}) {
    my $op = $self->next_operand;
    if ($op->is_num) {
      $accumulator = $calculator->($op, $accumulator);
      $type = $self->optype(plus => $op, $type || $op)->type;
    } elsif ($op->is_error && substr($type, 0, 1) ne 'e') {
      $type = $op->type;
    }
  }
  my $result = $self->result_from($accumulator) || 0;

  return Spreadsheet::Engine::Value->new(
    type => $type || 'n',
    value => $result
  );
}

sub accumulator { undef }

sub result_from {
  my ($self, $accumulator) = @_;
  return $accumulator;
}

1;

__END__