File Coverage

lib/Spreadsheet/Engine/Function/HLOOKUP.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	8	10	80.0
condition			n/a
subroutine	11	11	100.0
pod	2	2	100.0
total	52	54	96.3

package Spreadsheet::Engine::Function::HLOOKUP;

use strict;
use warnings;

use base 'Spreadsheet::Engine::Function::MATCH';
use Spreadsheet::Engine::Sheet 'cr_to_coord';

sub argument_count { -3 => 4 }
sub signature { '*', 'r', '>=1', 'n' }

sub _offset_op { (shift->_ops)[2] }
sub _sorted_op { (shift->_ops)[3] }

sub _gotit {
  my ($self, $cr) = @_;
  my ($c,    $r)  = @{$cr};
  my ($rangesheetdata, $rangecol1num, $nrangecols, $rangerow1num, $nrangerows)
    = $self->_range_data;
  my $offset = $self->_offset_op->value;
  my $coord  = cr_to_coord(
    $rangecol1num + $c + ($self->fname eq 'VLOOKUP' ? $offset - 1 : 0),
    $rangerow1num + $r + ($self->fname eq 'HLOOKUP' ? $offset - 1 : 0)
  );

  return Spreadsheet::Engine::Value->new(
    type  => $rangesheetdata->{valuetypes}->{$coord},
    value => $rangesheetdata->{datavalues}->{$coord},
  );
}

sub _crincs {
  my $self = shift;
  my ($rangesheetdata, $rangecol1num, $nrangecols, $rangerow1num, $nrangerows)
    = $self->_range_data;
  my $of = $self->_offset_op;
  die Spreadsheet::Engine::Error->ref if $of->value > $nrangerows;
  return (0, 0, 1, 0);
}

sub _sorted {
  my $self = shift;
  my $op = $self->_sorted_op or return 1;
  return $op->value ? 1 : 0;
}

1;

__END__