view release on metacpan or  search on metacpan

lib/Acme/Want5000trillion.pm  view on Meta::CPAN

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

our $VERSION = "0.03";
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__

=encoding utf-8

=head1 NAME

Acme::Want5000trillion - I want 5000trillion yen.

=head1 SYNOPSIS

    use Acme::Want5000trillion;
    my $want = Acme::Want5000trillion->new;

    print $want->say(); #5000兆円欲しい!
    print $want->say('en'); #I want 5000 trillion yen!
    print $want->say('aa'); # print AA

=head1 DESCRIPTION

Acme::Want5000trillion is Japanese twitter famous words.
I want 5000 trillion yen.

This module correspondence some languages.

This module consepts that illutstlation.
https://www.pixiv.net/member_illust.php?mode=medium&illust_id=62495210

=over

=item  ja 

=item  en

=item  th

=item  cn

=item  it 

=back

=head1 LICENSE

Copyright (C) AnaTofuZ.

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=head1 AUTHOR

AnaTofuZ E<lt>e155730@ie.u-ryukyu.ac.jpE<gt>

=cut