view release on metacpan or  search on metacpan

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

my @members = qw(
    ArakakiHitoe
    UeharaTakako
    ImaiEriko
    ShimabukuroHiroko
);

sub new {
    my $class = shift;
    my $self = bless {members => []}, $class;

    $self->_initialize;

    return $self;
}

sub members {
    my $self = shift;
    my @members = @{$self->{members}};

lib/Acme/Speed/Member/Base.pm  view on Meta::CPAN

    family_name_ja
    name_en
    first_name_en
    family_name_en
    birthday
    age
));

sub new {
    my $class = shift;
    my $self = bless {}, $class;

    $self->_initialize;

    return $self;
}

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