File Coverage

blib/lib/Acme/Want5000trillion.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	1	2	50.0
condition	3	5	60.0
subroutine	5	5	100.0
pod	0	2	0.0
total	24	29	82.7

package Acme::Want5000trillion;
use 5.008001;
use strict;
use warnings;

our $VERSION = "0.01";

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


sub say{
    my $self = shift;
    my $lang = shift // "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__