File Coverage

blib/lib/Telugu/TGC.pm

Criterion	Covered	Total	%
statement	9	51	17.6
branch	0	12	0.0
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	70	17.1

package Telugu::TGC;

use strict;
use warnings;
use utf8;

our $VERSION = '1.1';

my @dheerga = ("ా", "ి", "ీ", "ు", "ూ", "ృ", "ౄ", "ె", "ే", "ై", "ొ", "ో", "ౌ", "ం", "ఁ", "ః", "ఀ");
my $visarga = "్";
my @consonant = ( "క", "ఖ", "గ", "ఘ", "ఙ", "చ", "ఛ", "జ", "ఝ", "ఞ", "ట", "ఠ",
                  "ణ", "త", "థ", "ధ", "ప", "ఫ", "బ", "భ", "మ", "య",
                  "డ", "ఢ", "ర", "ఱ", "ల", "ళ", "ఴ", "వ", "శ", "ష", "స", "హ" );

my %dheerga = map { $_ => 1 } @dheerga;
my %consonant = map { $_ => 1 } @consonant;

sub new {
  my ($class) = @_;
  return bless {}, $class;
}

sub tgc {
  my ($class, $string) = @_;

  my $counter = 0;
  my @tgc;
  my @temp;

  my @array = split("", $string);

  while($counter <= $#array) {
      my $element = $array[$counter];
      $counter++;

      if(exists($consonant{$element})) {
          @temp = ();
          push @temp, $element;
          $element = $array[$counter];
          if(exists($dheerga{$element})) {
              $counter++;
              push @temp, $element;
              push @tgc, join("", @temp);
              next;
          }
          if($element eq $visarga) {
              push @temp, $element;
              $counter++;
              while(1) {
                  $element = $array[$counter];
                  if(exists($consonant{$element})) {
                      push @temp, $element;
                      $counter++;
                      $element = $array[$counter];
                      if($dheerga{$element}) {
                          push @temp, $element;
                          $counter++;
                          last;
                      }
                      if($element eq $visarga) {
                          push @temp, $element;
                          $counter++;
                          next;
                      }
                      last;
                  }
                  else {
                      last;
                  }
              }
          }
          push @tgc, join("", @temp);
          next;
      }
      else {
          push @tgc, $element;
          next;
      }
  }

  return @tgc;
}

1;
__END__