File Coverage

lib/Spreadsheet/Engine/Function/SUBSTITUTE.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	8	10	80.0
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	37	39	94.8

package Spreadsheet::Engine::Function::SUBSTITUTE;

use strict;
use warnings;

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

sub argument_count { -3 => 4 }
sub signature { 't', 't', 't', '!=0' }

sub calculate {
  my ($self, $string, $oldtext, $newtext, $which) = @_;

  if (!$which) {
    $string =~ s/\Q$oldtext\E/$newtext/g if length $oldtext > 0;
  } elsif ($which >= 1) {
    for my $i (1 .. $which) {
      if ($i == $which) {
        $string =~ s/\G(.*?)\Q$oldtext\E/$1$newtext/;
        last;
      }
      last unless $string =~ m/\Q$oldtext\E/g;
    }
  }
  return $string;
}

1;

__END__