File Coverage

blib/lib/Lingua/YaTeA/ChunkingDataSet.pm

Criterion	Covered	Total	%
statement	41	41	100.0
branch	1	2	50.0
condition	2	3	66.6
subroutine	7	7	100.0
pod	4	4	100.0
total	55	57	96.4

package Lingua::YaTeA::ChunkingDataSet;
use strict;
use warnings;
use Lingua::YaTeA::ChunkingDataSubset;

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


sub new
{
    my ($class,$file_set) = @_;
    my $this = {};
    bless ($this,$class);
    $this->{ChunkingFrontiers} = Lingua::YaTeA::ChunkingDataSubset->new;
    $this->{ChunkingExceptions} = Lingua::YaTeA::ChunkingDataSubset->new;
    $this->{CleaningFrontiers} = Lingua::YaTeA::ChunkingDataSubset->new;
    $this->{CleaningExceptions} = Lingua::YaTeA::ChunkingDataSubset->new;

    $this->loadData($file_set);
    return $this;
}


sub loadData
{
    my ($this,$file_set) = @_;
    my $name;
    my $path;
    my $subset;
    my $line;
    my $type;
    my $value;
    my @file_names = ("ChunkingFrontiers","ChunkingExceptions","CleaningFrontiers","CleaningExceptions");
    foreach $name (@file_names)
    {
	$path = $file_set->getFile($name)->getPath;

	$subset = $this->getSubset($name);

	my $fh = FileHandle->new("<$path");

	while ($line= $fh->getline)
	{
	    if(($line !~ /^#/)&&($line !~ /^\s*$/))
	    {
		$line =~ s/\r//g;
		chomp $line;
		$line =~ /([^\t]+)\t([^\t]+)/;
		$type= $1;
		$value = $2;
		$subset->addSome($type,$value);
	    }
	}

    }
}

sub getSubset
{
    my ($this,$name) = @_;
    return $this->{$name};
}


sub existData
{
    my ($this,$set,$type,$data) = @_;
    return $this->getSubset($set)->existData($type,$data);
}

1;

__END__