view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

# NAME

Acme::Want5000trillion - I want 5000trillion yen.

# 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

# 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

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

=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

t/01_comments.t  view on Meta::CPAN

use strict;
use warnings;

use Acme::Want5000trillion;

use Test::More;

subtest 'lines' => sub{
    subtest 'ja' => sub{
        my $want = Acme::Want5000trillion->new;
        is $want->say(),  "5000兆円欲しい！";
    };

    subtest 'en' => sub{
        my $want = Acme::Want5000trillion->new;
        is $want->say('en'),  "I want 5000 trillion yen!";
    };

    subtest 'th' => sub{
        my $want = Acme::Want5000trillion->new;
        is $want->say('th'),  "ฉันต้องการ 5000000000000000 เยน!";
    };

    subtest 'cn' => sub{
        my $want = Acme::Want5000trillion->new;
        is $want->say('cn'), "我想五千万亿日元!";
    };

    subtest 'it' => sub{
        my $want = Acme::Want5000trillion->new;
        is $want->say('it'), "Voglio 5000 trilioni di yen!";
    };

    subtest 'aa' => sub{
        my $want = Acme::Want5000trillion->new;
        ok $want->say('aa');
    };
};

done_testing;