File Coverage

blib/lib/Lingua/YaTeA/File.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	5	5	100.0
total	38	38	100.0

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

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


sub new
{
    my ($class,$repository,$name) = @_;
    my $this = {};
    bless ($this,$class);
    $this->{INTERNAL_NAME} = ();
    $this->{FULL_NAME} = $name;
    $this->{PATH} = $repository . "/" . $this->{FULL_NAME};
    $this->setInternalName;
    return $this;
}



sub getPath
{
    my ($this) = @_;
    return $this->{PATH};
}

sub getFullName
{
    my ($this) = @_;
    return $this->{FULL_NAME};
}

sub getInternalName
{
    my ($this) = @_;
    return $this->{INTERNAL_NAME};
}

sub setInternalName
{
    my ($this) = @_;

    if($this->getFullName =~ /^(.+)\.[^\.]+$/)
    {
	$this->{INTERNAL_NAME} = $1;
    }
    else
    {
	$this->{INTERNAL_NAME} = $this->getFullName;
    }

}

1;


__END__