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


line stmt bran cond sub pod time code
1             package Acme::Want5000trillion;
2 2     2   856 use feature ':5.10';
  2         4  
  2         238  
3 2     2   14 use strict;
  2         5  
  2         44  
4 2     2   11 use warnings;
  2         4  
  2         78  
5              
6             our $VERSION = "0.03";
7 2     2   791 use Acme::Want5000trillion::Asciiart;
  2         6  
  2         347  
8              
9             my $languages = {
10             "ja" => "5000兆円欲しい！",
11             "en" => "I want 5000 trillion yen!",
12             "th" => "ฉันต้องการ 5000000000000000 เยน!",
13             "cn" => "我想五千万亿日元!",
14             "it" => "Voglio 5000 trilioni di yen!",
15             "aa" => Acme::Want5000trillion::Asciiart::sayAA(),
16             };
17              
18              
19             sub say{
20 6     6 0 28 my ($self,$lang) = @_;
21 6   100     19 $lang //= "ja";
22 6 50       16 $lang = "ja" if (! exists($languages->{$lang}));
23 6         38 return "$languages->{$lang}";
24             }
25              
26              
27             sub new {
28 6     6 0 9296 my ($class,%parameters) = @_;
29              
30 6   33     37 my $self = bless ({},ref($class) || $class);
31              
32 6         19 return $self;
33             }
34              
35              
36             1;
37             __END__