File Coverage

lib/Spreadsheet/Engine/Function/EXACT.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	15	20	75.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	46	51	90.2

package Spreadsheet::Engine::Function::EXACT;

use strict;
use warnings;

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

sub argument_count { 2 }

sub calculate {
  my $self = shift;

  # Sort values by type so we only need to compare in one direction
  my ($X, $Y) =
    sort { $a->type cmp $b->type } ($self->next_operand, $self->next_operand);

  die $X if $X->is_error;
  die $Y if $Y->is_error;

  if ($X->is_blank) {
    return 1                 if $Y->is_blank;
    return !length $Y->value if $Y->is_txt;
  }

  if ($X->is_num) {
    return $X->value == $Y->value if $Y->is_num;
    return $X->value . '' eq $Y->value if $Y->is_txt;
  }

  if ($X->is_txt) {
    return $X->value eq $Y->value if $Y->is_txt;
  }

  return 0;
}

1;

__END__