Acme-BABYMETAL

 view release on metacpan or  search on metacpan

LICENSE  view on Meta::CPAN

    along with this program; if not, write to the Free Software
    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA  02110-1301 USA


Also add information on how to contact you by electronic and paper mail.

If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:

    Gnomovision version 69, Copyright (C) 19xx name of author
    Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
    This is free software, and you are welcome to redistribute it
    under certain conditions; type `show c' for details.

The hypothetical commands `show w' and `show c' should show the
appropriate parts of the General Public License.  Of course, the
commands you use may be called something other than `show w' and `show
c'; they could even be mouse-clicks or menu items--whatever suits your
program.

You should also get your employer (if you work as a programmer) or your
school, if any, to sign a "copyright disclaimer" for the program, if
necessary.  Here a sample; alter the names:

README.md  view on Meta::CPAN

    for my $member (@members) {
        my $metal_name     = $member->metal_name;
        my $name_ja        = $member->name_ja;
        my $first_name_ja  = $member->first_name_ja;
        my $family_name_ja = $member->family_name_ja;
        my $name_en        = $member->name_en;
        my $first_name_en  = $member->first_name_en;
        my $family_name_en = $member->family_name_en;
        my $birthday       = $member->birthday;
        my $age            = $member->age;
        my $blood_type     = $member->blood_type;
        my $hometown       = $member->hometown;
        my $shout          = $member->shout;
    }

    my ($su_metal) = $babymetal->members('SU-METAL');
    my ($yuimetal) = $babymetal->members('YUIMETAL');
    my ($moametal) = $babymetal->members('MOAMETAL');

    $su_metal->shout;  # SU-METAL DEATH!!
    $yuimetal->shout;  # YUIMETAL DEATH!!

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

  for my $member (@members) {
      my $metal_name     = $member->metal_name;
      my $name_ja        = $member->name_ja;
      my $first_name_ja  = $member->first_name_ja;
      my $family_name_ja = $member->family_name_ja;
      my $name_en        = $member->name_en;
      my $first_name_en  = $member->first_name_en;
      my $family_name_en = $member->family_name_en;
      my $birthday       = $member->birthday;
      my $age            = $member->age;
      my $blood_type     = $member->blood_type;
      my $hometown       = $member->hometown;
      my $shout          = $member->shout;
  }

  my ($su_metal) = $babymetal->members('SU-METAL');
  my ($yuimetal) = $babymetal->members('YUIMETAL');
  my ($moametal) = $babymetal->members('MOAMETAL');

  $su_metal->shout;  # SU-METAL DEATH!!
  $yuimetal->shout;  # YUIMETAL DEATH!!

lib/Acme/BABYMETAL/Base.pm  view on Meta::CPAN

__PACKAGE__->mk_accessors(qw(
    metal_name
    name_ja
    first_name_ja
    family_name_ja
    name_en
    first_name_en
    family_name_en
    birthday
    age
    blood_type
    hometown
));

sub new {
    my $class = shift;
    my $self  = bless {}, $class;
    $self->_initialize;
    return $self;
}

lib/Acme/BABYMETAL/MOAMETAL.pm  view on Meta::CPAN

our $VERSION = '0.03';

sub info {
    return (
        metal_name     => 'MOAMETAL',
        first_name_ja  => '最愛',
        family_name_ja => '菊地',
        first_name_en  => 'Moa',
        family_name_en => 'Kikuchi',
        birthday       => '1999-07-04',
        blood_type     => 'A',
        hometown       => '愛知県',
    );
}

1;

lib/Acme/BABYMETAL/SU_METAL.pm  view on Meta::CPAN

our $VERSION = '0.03';

sub info {
    return (
        metal_name     => 'SU-METAL',
        first_name_ja  => 'すず香',
        family_name_ja => '中元',
        first_name_en  => 'Suzuka',
        family_name_en => 'Nakamoto',
        birthday       => '1997-12-20',
        blood_type     => 'B',
        hometown       => '広島県',
    );
}

1;

lib/Acme/BABYMETAL/YUIMETAL.pm  view on Meta::CPAN

our $VERSION = '0.03';

sub info {
    return (
        metal_name     => 'YUIMETAL',
        first_name_ja  => '由結',
        family_name_ja => '水野',
        first_name_en  => 'Yui',
        family_name_en => 'Mizuno',
        birthday       => '1999-06-20',
        blood_type     => 'O',
        hometown       => '神奈川県',
    );
}

1;

t/02_moametal.t  view on Meta::CPAN

for my $member ($babymetal->members('MOAMETAL')) {
    is $member->metal_name, 'MOAMETAL';
    is $member->name_ja, '菊地最愛';
    is $member->first_name_ja, '最愛';
    is $member->family_name_ja, '菊地';
    is $member->name_en, 'Moa Kikuchi';
    is $member->first_name_en, 'Moa';
    is $member->family_name_en, 'Kikuchi';
    is $member->birthday, '1999-07-04';
    ok $member->age;
    is $member->blood_type, 'A';
    is $member->hometown, '愛知県';
}


done_testing;

t/02_su_metal.t  view on Meta::CPAN

for my $member ($babymetal->members('SU-METAL')) {
    is $member->metal_name, 'SU-METAL';
    is $member->name_ja, '中元すず香';
    is $member->first_name_ja, 'すず香';
    is $member->family_name_ja, '中元';
    is $member->name_en, 'Suzuka Nakamoto';
    is $member->first_name_en, 'Suzuka';
    is $member->family_name_en, 'Nakamoto';
    is $member->birthday, '1997-12-20';
    ok $member->age;
    is $member->blood_type, 'B';
    is $member->hometown, '広島県';
}


done_testing;

t/02_yuimetal.t  view on Meta::CPAN

for my $member ($babymetal->members('YUIMETAL')) {
    is $member->metal_name, 'YUIMETAL';
    is $member->name_ja, '水野由結';
    is $member->first_name_ja, '由結';
    is $member->family_name_ja, '水野';
    is $member->name_en, 'Yui Mizuno';
    is $member->first_name_en, 'Yui';
    is $member->family_name_en, 'Mizuno';
    is $member->birthday, '1999-06-20';
    ok $member->age;
    is $member->blood_type, 'O';
    is $member->hometown, '神奈川県';
}


done_testing;