File Coverage

lib/Spreadsheet/Engine/Function/VALUE.pm

Criterion	Covered	Total	%
statement	20	22	90.9
branch	4	6	66.6
condition	1	3	33.3
subroutine	6	6	100.0
pod	2	2	100.0
total	33	39	84.6

package Spreadsheet::Engine::Function::VALUE;

use strict;
use warnings;

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

use Spreadsheet::Engine::Sheet qw/determine_value_type/;

sub argument_count { 1 }

sub result {
  my $self = shift;
  my $op   = $self->next_operand;

  if ($op->is_num || $op->is_blank) {
    return Spreadsheet::Engine::Value->new(type => 'n', value => $op->value);
  }

  # TODO: make this a Value
  if ($op->is_txt) {
    my $result = determine_value_type($op->value, \my $type);
    die Spreadsheet::Engine::Error->val if substr($type, 0, 1) ne 'n';
    return Spreadsheet::Engine::Value->new(type => 'n', value => $result);
  }

  die Spreadsheet::Engine::Error->val;

}

1;

__END__