File Coverage

blib/lib/Lingua/Atinlay/Igpay.pm

Criterion	Covered	Total	%
statement	6	23	26.0
branch	0	10	0.0
condition	0	9	0.0
subroutine	2	3	66.6
pod	0	1	0.0
total	8	46	17.3

package Lingua::Atinlay::Igpay;

use strict;

require Exporter;

use vars qw[@ISA %EXPORT_TAGS @EXPORT_OK $VERSION];
@ISA = qw(Exporter);

%EXPORT_TAGS = ( 'all' => [ qw[ enhay2igpayatinlay ] ] );

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

$VERSION = '0.03';

sub enhay2igpayatinlay {
  my @list     = @_;
  my @new_list = ();
  while ( defined( $_ = shift @list ) ) {
    my @tokens = split /\b/, $_;
    foreach ( 0 .. $#tokens ) {
      my $tok     = $tokens[$_];
      my $alluc   = ( $tok eq uc $tok              ? 1 : 0 );
      my $firstuc = ( $tok =~ /^[A-Z]/ && ! $alluc ? 1 : 0 );
      if (    $tok =~ s/^([aeiou].*)/${1}hay/gsi
           || $tok =~ s/^([b-d,f-h,j-n,p-t,v-z]{2,})(.+)/${2}${1}ay/gsi
           || $tok =~ s/^([b-d,f-h,j-n,p-t,v-z])(.+)/${2}${1}ay/gsi ) {
                $tok = uc $tok if $alluc;
                if ( $firstuc ) {
                  $tok =  ucfirst $tok;
                  $tok =~ s/((?:.h|.)ay)$/lc $1/e;
                }
      }
      $tokens[$_] = $tok;
    }
    push @new_list, join '', @tokens;
  }
  return @new_list;
}

1;
__END__