File Coverage

blib/lib/Lingua/YaTeA/MessageSet.pm

Criterion	Covered	Total	%
statement	36	37	97.3
branch	3	4	75.0
condition			n/a
subroutine	9	9	100.0
pod	5	5	100.0
total	53	55	96.3

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

use Lingua::YaTeA::Message;
use Data::Dumper;

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

sub new
{
    my ($class,$file,$language) = @_;
    my $this = {};
    bless ($this,$class);
    $this->{MESSAGES} = {};
    $this->loadMessages($file,$language);
    return $this;
}

sub loadMessages
{
    my ($this,$file,$language) = @_;
    my $path = $file->getPath;
    my $fh = FileHandle->new("<$path");
    my $line;
    my $line_counter = 0;
    my $message;
    my $option;


    while ($line= $fh->getline)
    {
	$line_counter++;
	if ($line =~ /^([^\s]+) = \"(.+)\"\s*$/)
	{
	    $message = Lingua::YaTeA::Message->new($1,$2,$language);
	    $this->addMessage($message);
	}
	else
	{
	    if($line !~ /^\s*$/)
	    {
		die "ill-formed message in file:" .$file->getPath .  " line " . $line_counter . "\n";
	    }
	}
    }
}

sub addMessage
{
    my ($this,$message) = @_;
    $this->{MESSAGES}->{$message->getName} = $message;
}


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

sub getMessages
{
    my ($this) = @_;
    return $this->{MESSAGES};
}
1;

__END__