view release on metacpan or  search on metacpan

etc/90_concept.t  view on Meta::CPAN

    subtest 'Mirei' => sub {
        my $mirei = Acme::PriPara::MainMembers::MinamiMirei->new;
        is $mirei->name,       'Minami Mirei';
        is $mirei->firstname,  'Mirei';
        is $mirei->lastname,   'Minami';
        is $mirei->age,        '13';
        is $mirei->cv,         'Serizawa Yu';
        is $mirei->say,        '計算どおり';  # speak nomally
        
        my $word = '計算どおり';
        is $mirei->say($word),    $word . 'ぷり';  # speak with suffix ー 'ぷり'
        is $mirei->costume_brand, undef;

        $mirei->pripara_change;
        is $mirei->costume_brand, 'Candy à la Mode';
    };

    subtest 'Sophie' => sub {
        my $sophie = Acme::PriPara::MainMembers::HōjōSophie->new;
        is $sophie->name,          'Hōjō Sophie';
        is $sophie->firstname,     'Sophie';

lib/Acme/PriPara/MainMembers.pm  view on Meta::CPAN

}

sub cv {
    my ($self) = @_; 
    return $self->{cv}; 
}

# alias to voiced_by
*voiced_by = \&cv;

sub say {
    my ($self) = @_; 
    return $self->{say}; 
}

sub color {
    my ($self) = @_;
    return $self->has_pripara_changed ? $self->{color} : undef;
}

sub costume_brand {