File Coverage

blib/lib/Lingua/AR/Word.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	0	4	0.0
total	32	36	88.8

package Lingua::AR::Word;

use strict;
use warnings;
use utf8;


use Lingua::AR::Word::Stem;	#needed to find the stem
use Lingua::AR::Word::Encode;	#needed to encode into ArabTeX


our $VERSION = '1.5.7';


sub new{

    my $class=shift;

    my $this={
        _word=>shift,
        _stem=>"",
        _arabtex=>""
    };

    $this->{_stem}=&stem($this->{_word});
    $this->{_arabtex}=&encode($this->{_word});

    bless($this,$class);
}



sub get_word{
    $_[0]->{_word};
}

sub get_stem{
    $_[0]->{_stem};
}

sub get_arabtex{
    $_[0]->{_arabtex};
}



1;
__END__