File Coverage

blib/lib/Lingua/YaTeA/FileSet.pm

Criterion	Covered	Total	%
statement	30	31	96.7
branch	1	2	50.0
condition			n/a
subroutine	9	9	100.0
pod	6	6	100.0
total	46	48	95.8

package Lingua::YaTeA::FileSet;
use Lingua::YaTeA::File;
use strict;
use warnings;

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

sub new
{
    my ($class,$repository) = @_;
    my $this = {};
    bless ($this,$class);
    $this->{REPOSITORY} = $repository;
    $this->{FILES} = ();
    return $this;
}


sub checkRepositoryExists
{
    my ($this) = @_;
    if (! -d $this->getRepository)
    {
	die "No such repository :" . $this->getRepository . "\n";
    }
    else
    {
	print STDERR "Data will be loaded from: ". $this->getRepository . "\n";
    }
}

sub addFile
{
    my ($this,$repository,$name) = @_;
    my $file;
    my $option;

    $file = Lingua::YaTeA::File->new($repository,$name);

    $this->{FILES}->{$file->getInternalName} = $file;
}

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

sub addFiles
{
    my ($this,$repository,$file_name_a) = @_;
    my $name;
    foreach $name (@$file_name_a)
    {
	$this->addFile($repository,$name);
    }
}

sub getRepository
{
    my ($this) = @_;
    return $this->{REPOSITORY} ;
}

1;

__END__