view release on metacpan or  search on metacpan

lib/Acme/MomoiroClover/Members/Base.pm  view on Meta::CPAN

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

    $self->_initialize;

    return $self;
}

sub say {
    my ($self, $comment) = @_;
    print $ansi_colors->{$self->color} if ($self->color);
    print $self->nick->[0] || $self->name_ja;
    print  ': ';
    print $comment, "\x1b[0m\n";
}

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

lib/Acme/MomoiroClover/Members/Base.pm  view on Meta::CPAN

      my $nick           = $member->nick;           # arrayref
      my $birthday       = $member->birthday;       # Date::Simple object
      my $age            = $member->age;
      my $blood_type     = $member->blood_type;
      my $hometown       = $member->hometown;
      my $emoticon       = $member->emoticon;       # arrayref
      my $graduate_date  = $member->graduate_date;  # Date::Simple object
      my $join_date      = $member->join_date;      # Date::Simple object
      my $color          = $member->color;

      $member->say('momoclo chan!!');
  }

=head1 DESCRIPTION

Acme::MomoiroClover::::Member::Base is a baseclass of the class represents each
member of Momoiro Clover.

=head1 METHODS

=head2 say ( $comment )

  $member->say("momoclo chan!!");

=back

=head1 ACCESSORS

=head2 name_ja

=head2 first_name_ja

=head2 family_name_ja

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

    ok $member->family_name_en,           '  family_name_en()';
    ok ref($member->nick) eq 'ARRAY',     '  nick()';
    ok !$member->birthday || $member->birthday->isa('Date::Simple'), '  birthday()';
    ok $member->age,                      '  age()';
    ok $member->blood_type,               '  blood_type()';
    ok $member->hometown,                 '  hometown()';
    ok ref($member->emoticon) eq 'ARRAY', '  emoticon()';
    ok !$member->graduate_date || $member->graduate_date->isa('Date::Simple'), '  join_daate()';
    ok $member->join_date->isa('Date::Simple'), '  join_date()';
    ok $member->can('color'),             '  color()';
    ok $member->say(''),                  '  say()';
}