File Coverage

blib/lib/Lingua/YaTeA/Message.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	3	3	100.0
total	24	24	100.0

package Lingua::YaTeA::Message;

use strict;
use warnings;

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

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



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

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

1;

__END__