view release on metacpan or  search on metacpan

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

use 5.008001;
use strict;
use warnings;

our $VERSION = "0.03";

my @members = qw(SU-METAL YUIMETAL MOAMETAL);

sub new {
    my $class = shift;
    my $self  = bless {members => []}, $class;
    for my $member (@members) {
        $member =~ s|-|_|;
        my $module_name = 'Acme::BABYMETAL::' . $member;
        eval qq|require $module_name;|;
        push @{$self->{members}}, $module_name->new;
    }
    return $self;
}

sub homepage {

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

    first_name_en
    family_name_en
    birthday
    age
    blood_type
    hometown
));

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

sub _initialize {
    my $self = shift;
    my %info = $self->info;

    $self->{$_}      = $info{$_} for keys %info;
    $self->{name_ja} = $self->family_name_ja . $self->first_name_ja;