The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Lingua::IT::Ita2heb::LettersSeq - abstract a sequence of letters.

DESCRIPTION

A sequence of letters.

VERSION

Version 0.01

SYNOPSIS

    use Lingua::IT::Ita2heb::LettersSeq;

    my $seq = Lingua::IT::Ita2heb::LettersSeq->new(
        {
            ita_letters => \@ita_letters,  
        }
    );

METHODS

ita_letters

The letters in the sequence. An array reference.

idx

The index. An integer.

current

The current letter at index idx.

next_index

Increment the index and return it.

at_start

Determines whether this is the start of the sequence (index No. 0).

after_start

After the start (Index larger than 1).

at_end

This is the last letter in the sequence.

before_end

This is before the end. !$self-at_end.

$seq->match_places($start_offset, \@sets_seq)

Match places from $start_offset onwards with @sets_seq .

$seq->safe_match_places($start_offset, \@sets_seq)

Like match_places but return false if $start_offset is too small.

$seq->match_before(\@sets_seq)

Matches the sequences in order for the letters before the current one. If they don't exist, then it returns false.

$seq->match_after(\@sets_seq)

Matches the sequences in order for the letters after the curent one. If some of them don't exist (because the sequence is too short, then it returns false.

$seq->curr_lett_eq_next()

Whether the current letter is the same as the next or alternatively we are the end of the string.

$seq->middle_at_end()

A predicate that returns true if the letter is after the start and right at the end.

$seq->add_final($non_final, $final)

Adds $non_final or $final depending on the return of middle_at_end and returns the middle_at_end verdict.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Lingua::IT::Ita2heb

You can also look for information at:

LICENSE AND COPYRIGHT

Copyright 2011 Amir E. Aharoni.

This program is free software; you can redistribute it and modify it under the terms of either:

  • the GNU General Public License version 3 as published by the Free Software Foundation.

  • or the Artistic License version 2.0.

See http://dev.perl.org/licenses/ for more information.

AUTHOR

Amir E. Aharoni, <amir.aharoni at mail.huji.ac.il> and Shlomi Fish ( http://www.shlomifish.org/ ).