File Coverage

blib/lib/Telugu/TGC.pm

Criterion	Covered	Total	%
statement	105	117	89.7
branch	25	62	40.3
condition	1	3	33.3
subroutine	29	32	90.6
pod			n/a
total	160	214	74.7

package Telugu::TGC;

use Mouse;
use Regexp::Grammars;
use Kavorka -all;
use utf8;


our $VERSION = '0.07';

# V[m] | CH | {CH}C[v][m] | D | F | Hpv | W | Sid | N | Other | NT

# []  - 0 or 1 times
# {}  - zero or more times
# |   - a rule separator
# V   - independent vowel
# m   - modifier(Anusvara/Visarga/Chandrabindu)
# C   - consonant
# v   - dependent vowel
# H   - Virama
# D   - Digit
# F   - fraction
# W   - Weights
# Sid - Siddham
# N   - Never occurs, if script is written properly it never matches
# CH  - Matches only when virama is at the end of the word

# [m]  is written as  m_
# [v]  is written as  v_
# {CH} is written as  CH__


my @result = ();

method TE::String::X() {
  for my $element (@{$self->{Tgc}}) {
    $element->X();
  }
}

method TE::Tgc::X() {
  ($self->{S} || $self->{Vm} || $self->{CH} || $self->{CHCvm} || $self->{D} || $self->{F} || $self->{W} ||  $self->{Sid} || $self->{N} || $self->{Other} || $self->{NT})->X() ;
}

method TE::S::X() {
  push @result, $self->{''};
}

method TE::Vm::X() {
  push @result, $self->{V}{''}.$self->{m_}{''};
}

method TE::CH::X() {
  push @result, $self->{''};
}

method TE::CHCvm::X() {
  push @result, $self->{CH__}{''}.$self->{C}{''}.$self->{v_}{''}.$self->{m_}{''};
}

method TE::D::X() {
  push @result, $self->{''};
}

method TE::F::X() {
  push @result, $self->{''};
}

method TE::W::X() {
  push @result, $self->{''};
}

method TE::Sid::X() {
  push @result, $self->{''};
}

method TE::N::X() {
  push @result, $self->{''};
}

method TE::Other::X() {
  push @result, $self->{''};
}


method TE::NT::X() {
  push @result, $self->{''};
}

my $parser = qr {
        <nocontext:>
        <String>
        <objrule:  TE::String>        <[Tgc]>+
        <objrule:  TE::Tgc>           <ws: (\s++)*> <S> | <Vm> | <CH> | <CHCvm> | <D> | <F> | <W> | <Sid> | <N> | <Other> | <NT>
        <objrule:  TE::Vm>            <V><m_>
        <objrule:  TE::CHCvm>         <CH__><C><v_><m_>
        <objtoken: TE::CH>            ([క-హౘ-ౚ])(్\b)
        <objtoken: TE::V>             [అ-ఔౠ-ౡ]
        <objtoken: TE::m_>            [ఀ-ఄఽౕౖ]?
        <objtoken: TE::CH__>          (([క-హౘ-ౚ])(్))*
        <objtoken: TE::C>             [క-హౘ-ౚ]
        <objtoken: TE::v_>            [ా-ౌౢౣ]?
        <objtoken: TE::D>             [౦-౯]
        <objtoken: TE::F>             [౸-౾]
        <objtoken: TE::W>             [౿]
        <objtoken: TE::Sid>           [à±·]
        <objtoken: TE::N>             [ా-ౌౢౣఀ-ఄఽౕౖ]
        <objtoken: TE::S>             [ ]
        <objtoken: TE::Other>         [ఀ-౿]
        <objtoken: TE::NT>            [^ఀ-౿]
}xms;


method TGC( Str $string ) {
  if( $string =~ $parser ) {
      $/{String}->X();
  }
  return @result;
}


1;
__END__
=encoding utf-8

=head1 NAME

Telugu::TGC - Tailored grapheme clusters for Telugu languauge.

=head1 SYNOPSIS

	 use Telugu::TGC;
	 use utf8;
	 binmode STDOUT, ":encoding(UTF-8)";

	 my $o = Telugu::TGC->new();
	 my @re = $o->TGC("రాజ్కుమార్రెడ్డి");
	 print $re[1], "\n";


=head1 DESCRIPTION

This module provides one function, TGC.
This function takes a string and returns an array.


=head1 BUGS

Please send me email, if you find any bugs


=head1 AUTHOR

Rajkumar Reddy, [e-mail]

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2019 by Rajkumar Reddy

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.26.1 or,
at your option, any later version of Perl 5 you may have available.


=cut