File Coverage

blib/lib/String/Nysiis.pm

Criterion	Covered	Total	%
statement	38	39	97.4
branch	1	2	50.0
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	42	45	93.3

package String::Nysiis;

require 5.005_62;
use strict;
use warnings;

require Exporter;
our @ISA = qw(Exporter);
our %EXPORT_TAGS = ( 'all' => [ qw(
    nysiis
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT  = qw();
our $VERSION = '1.00';


# Preloaded methods go here.
sub nysiis
{
  my($string) = @_;

  $string = uc($string);

  $string =~ s/[^A-Za-z]//g;
  $string =~ s/[SZ]*$//g;
  $string =~ s/^MAC/MC/;
  $string =~ s/^PF/F/;

  $string =~ s/IX$/IC/;
  $string =~ s/EX$/EC/;
  $string =~ s/(?:YE|EE|IE)$/Y/;
  $string =~ s/(?:NT|ND)$/N/;

  $string =~ s/(.)EV/$1EF/g;
  my $first = substr($string,0,1);
  $string =~ s/[AEIOU]+/A/g;
  $string =~ s/AW/A/g;

  $string =~ s/GHT/GT/g;
  $string =~ s/DG/G/g;
  $string =~ s/PH/F/g;
  $string =~ s/(.)(?:AH|HA)/$1A/g;
  $string =~ s/KN/N/g;
  $string =~ s/K/C/g;
  $string =~ s/(.)M/$1N/g;
  $string =~ s/(.)Q/$1G/g;
  $string =~ s/(?:SCH|SH)$/S/;
  $string =~ s/YW/Y/g;

  $string =~ s/(.)Y(.)/$1A$2/g;
  $string =~ s/WR/R/g;

  $string =~ s/(.)Z/$1S/g;

  $string =~ s/AY$/Y/;
  $string =~ s/A+$//;

  $string =~ s/(\w)\1+/$1/g;

  if ($first =~ /[AEIOU]/) {
    substr($string,0,1) = $first;
  }

  return $string;
}

1;
__END__