File Coverage

blib/lib/Lingua/YaTeA/ParsingPatternRecord.pm

Criterion	Covered	Total	%
statement	20	30	66.6
branch			n/a
condition			n/a
subroutine	6	8	75.0
pod	5	5	100.0
total	31	43	72.0

package Lingua::YaTeA::ParsingPatternRecord;
use strict;
use warnings;

use Lingua::YaTeA::ParsingPattern;

our $VERSION=$Lingua::YaTeA::VERSION;

sub new
{
    my ($class,$name) = @_;
    my $this = {};
    bless ($this,$class);
    $this->{NAME} = $name;
    $this->{PARSING_PATTERNS} = ();
    return $this;
}

sub getName
{
    my ($this) = @_;
    return $this->{NAME};

}

sub addPattern
{
    my ($this,$pattern) = @_;
    push @{$this->{PARSING_PATTERNS}}, $pattern;
}

sub getPatterns
{
    my ($this) = @_;
    return $this->{PARSING_PATTERNS};
}

sub print
{
    my ($this) = @_;
    my $pattern;
    print"[";
    print $this->getName . "\n";
    foreach $pattern (@{$this->getPatterns})
    {
	$pattern->print;
    }
    print "]\n";
}


1;

__END__