File Coverage

blib/lib/Acme/Want5000trillion.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	1	2	50.0
condition	3	5	60.0
subroutine	6	6	100.0
pod	0	2	0.0
total	29	34	85.2

package Acme::Want5000trillion;
use feature ':5.10';
use strict;
use warnings;

our $VERSION = "0.02";
use Acme::Want5000trillion::Asciiart;

my $languages = {
    "ja" => "5000兆円欲しい！",
    "en" => "I want 5000 trillion yen!",
    "th" => "ฉันต้องการ 5000000000000000 เยน!",
    "cn" => "我想五千万亿日元!",
    "it" => "Voglio 5000 trilioni di yen!",
    "aa" => "&Acme::Want5000trillion::Asciiart::sayAA()",
};


sub say{
    my ($self,$lang) = @_;

    $lang //= "ja";
    $lang = "ja" if (! exists($languages->{$lang}));
    return "$languages->{$lang}";
}


sub new {
    my ($class,%parameters) = @_;

    my $self = bless ({},ref($class) || $class);

    return $self;
}


1;
__END__