File Coverage

lib/Spreadsheet/Engine/Function/FIND.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	6	6	100.0
condition			n/a
subroutine	7	7	100.0
pod	4	4	100.0
total	35	35	100.0

package Spreadsheet::Engine::Function::FIND;

use strict;
use warnings;

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

sub argument_count { -2 => 3 }

sub signature { 't', 't', 'n' }

sub calculate {
  my ($self, $want, $string, $offset) = @_;

  # TODO allow signature to define defaults & custom error messages
  $offset = 1 unless defined $offset;
  die Spreadsheet::Engine::Error->val('Start is before string')
    if $offset < 1;

  my $result = index $string, $want, $offset - 1;
  die Spreadsheet::Engine::Error->val('Not found') unless $result >= 0;
  return $result + 1;
}

sub result_type { 'n' }

1;

__END__