Acme-PriPara
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
warnings 0
Data-Section-Simple-0.07
pathname: M/MI/MIYAGAWA/Data-Section-Simple-0.07.tar.gz
provides:
Data::Section::Simple 0.07
requirements:
ExtUtils::MakeMaker 6.30
Devel-CheckCompiler-0.05
pathname: S/SY/SYOHEX/Devel-CheckCompiler-0.05.tar.gz
provides:
Devel::AssertC99 undef
Devel::CheckCompiler 0.05
requirements:
CPAN::Meta 0
CPAN::Meta::Prereqs 0
Exporter 0
ExtUtils::CBuilder 0
File::Temp 0
Module::Build 0.38
Test::More 0.98
Test::Requires 0
cpanfile.snapshot view on Meta::CPAN
File::Basename 0
File::Path 0
Module::Build 0.4005
XSLoader 0.02
parent 0
perl 5.008005
Mouse-2.4.1
pathname: G/GF/GFUJI/Mouse-2.4.1.tar.gz
provides:
Mouse 2.004001
Mouse::Exporter undef
Mouse::Meta::Attribute undef
Mouse::Meta::Class undef
Mouse::Meta::Method undef
Mouse::Meta::Method::Accessor undef
Mouse::Meta::Method::Constructor undef
Mouse::Meta::Method::Delegation undef
Mouse::Meta::Method::Destructor undef
Mouse::Meta::Module undef
Mouse::Meta::Role undef
Mouse::Meta::Role::Application undef
Mouse::Meta::Role::Composite undef
Mouse::Meta::Role::Method undef
Mouse::Meta::TypeConstraint undef
Mouse::Object undef
Mouse::PurePerl undef
Mouse::Role 2.004001
Mouse::Spec 2.004001
Mouse::TypeRegistry undef
Mouse::Util 2.004001
Mouse::Util::MetaRole undef
Mouse::Util::TypeConstraints undef
Squirrel undef
Squirrel::Role undef
Test::Mouse undef
ouse undef
requirements:
Devel::PPPort 3.19
ExtUtils::ParseXS 3.22
Module::Build 0.4005
Module::Build::XSUtil 0
Scalar::Util 1.14
XSLoader 0.02
perl 5.008005
Readonly-2.00
pathname: S/SA/SANKO/Readonly-2.00.tar.gz
etc/90_concept.t view on Meta::CPAN
subtest 'Charactors' => sub {
subtest 'Lala' => sub {
my $lala = Acme::PriPara::MainMembers::ManakaLala->new;
is $lala->name, 'Manaka Lala';
is $lala->firstname, 'Lala';
is $lala->lastname, 'Manaka';
is $lala->age, 10;
is $lala->cv, 'Akaneya Himika';
is $lala->say, 'Kashikoma!';
is $lala->costume_brand, undef; # withiout PriPara Changing, you cannot get costume_brand.
$lala->pripara_change;
is $lala->costume_brand, 'Twinkle Ribbon';
};
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';
is $sophie->lastname, 'HÅjÅ';
is $sophie->age, '14?';
is $sophie->cv, 'Kubota Miyu';
is $sophie->costume_brand, undef;
is $sophie->say, '';
$sophie->pripara_change;
is $sophie->costume_brand, undef; # Sophie attempt to enter the PriPara World...
$sophie->pripara_change('Red Flash'); # Sophie can get to the PriPara World after eating Red Flash
is $sophie->costume_brand, 'Holic Trick';
is $sophie->say, 'something';
};
subtest 'Shion' => sub {
my $shion = Acme::PriPara::MainMembers::TodoShion->new;
is $shion->name, 'Todo Shion';
is $shion->cv, 'Yamakita Saki';
etc/90_concept.t view on Meta::CPAN
$shion->pripara_change;
is $shion->costume_brand, 'Baby Monster';
};
subtest 'Dorothy' => sub {
my $dorothy = Acme::PriPara::MainMembers::DorothyWest->new;
is $dorothy->name, 'Dorothy West';
is $dorothy->cv, 'Shibuya Azuki';
# ...
$dorothy->pripara_change;
is $dorothy->costume_brand, undef;
my $leona = Acme::PriPara::MainMembers::LeonaWest->new;
$dorothy->pripara_change($leona); # Dorothy is always being with Leona ...
is $dorothy->costume_brand, 'Fortune Party';
};
subtest 'Leona' => sub {
my $leona = Acme::PriPara::MainMembers::LeonaWest->new;
is $leona->name, 'Leona West';
is $leona->cv, 'Wakai Yuki';
# ...
$leona->pripara_change;
is $leona->costume_brand, undef;
my $dorothy = Acme::PriPara::MainMembers::DorothyWest->new;
$leona->pripara_change($dorothy); # Leona is always being with Dorothy ...
is $leona->costume_brand, 'Fortune Party';
};
};
subtest 'Live' => sub {
my ($lala, $mirei, $sophie, $shion, $dorothy, $leona) = Acme::PriPara->main_members;
etc/90_concept.t view on Meta::CPAN
# ...
};
subtest 'mirei' => sub {
$mirei->pripara_change;
is $mirei->costume(1), 'Candy à la Mode';
is $mirei->costume(2), 'Wonderland Rabbit Onepiece';
# ...
};
subtest 'sophie' => sub {
$shophie->pripara_change('Red Flash');
is $shophie->costume(1), undef;
is $shophie->costume(2), 'Holic Trick';
# ...
};
};
subtest 'Team' => sub {
subtest 'Lara and Mirei' => sub {
my ($lala, $mirei) = Acme::PriPara->lala_and_mirei;
};
subtest 'SoLaMi☆ SMILE' => sub {
lib/Acme/PriPara/MainMembers.pm view on Meta::CPAN
# 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 {
my ($self) = @_;
return $self->has_pripara_changed ? $self->{costume_brand} : undef;
}
sub pripara_change {
my ($self) = @_;
$self->has_pripara_changed(1);
}
sub BUILD {
my ($self, $args) = @_;
t/01_characters.t view on Meta::CPAN
ok ! $laara->has_pripara_changed, 'initially not pripara-changed';
is $laara->name, 'çœŸä¸ ã‚‰ãら';
is $laara->firstname, 'らãら';
is $laara->lastname, '真ä¸';
is $laara->age, 10;
is $laara->birthday, '11/20';
is $laara->blood_type, 'O';
is $laara->cv, '茜屋日海å¤';
is $laara->voiced_by, '茜屋日海å¤';
is $laara->say, 'ã‹ã—ã“ã¾ï¼';
is $laara->costume_brand, undef; # withiout PriPara Changing, you cannot get costume_brand.
is $laara->color, undef, 'color returns only if pripara-changed';
$laara->pripara_change;
ok $laara->has_pripara_changed;
is $laara->costume_brand, 'Twinkle Ribbon';
is $laara->color, 'ピンク', 'color returns only if pripara-changed';
};
subtest 'Mirei' => sub {
my $mirei = Acme::PriPara::MainMembers::MinamiMirei->new;
ok ! $mirei->has_pripara_changed, 'initially not pripara-changed';
is $mirei->name, 'å— ã¿ã‚Œãƒ';
is $mirei->firstname, 'ã¿ã‚Œãƒ';
is $mirei->lastname, 'å—';
is $mirei->age, 13;
is $mirei->birthday, '10/1';
is $mirei->blood_type, 'A';
is $mirei->cv, '芹澤優';
is $mirei->voiced_by, '芹澤優';
is $mirei->costume_brand, undef;
is $mirei->color, undef, 'color returns only if pripara-changed';
$mirei->pripara_change;
ok $mirei->has_pripara_changed;
is $mirei->costume_brand, 'Candy à la Mode';
is $mirei->color, 'ライトブルー', 'color returns only if pripara-changed';
is $mirei->say, 'ã·ã‚Š';
};
subtest 'Sophy' => sub {
my $sophy = Acme::PriPara::MainMembers::HojoSophy->new;
ok ! $sophy->has_pripara_changed, 'initially not pripara-changed';
is $sophy->name, 'åŒ—æ¡ ããµãƒ';
is $sophy->firstname, 'ããµãƒ';
is $sophy->lastname, '北æ¡';
is $sophy->age, 14;
is $sophy->birthday, '7/30';
is $sophy->blood_type, 'AB';
is $sophy->cv, 'ä¹…ä¿ç”°æœªå¤¢';
is $sophy->voiced_by, 'ä¹…ä¿ç”°æœªå¤¢';
is $sophy->costume_brand, undef;
is $sophy->color, undef, 'color returns only if pripara-changed';
is $sophy->say, 'ã·ã—ゅ〜';
$sophy->pripara_change; # Sophy attempt to enter the PriPara World...
ok ! $sophy->has_pripara_changed;
is $sophy->costume_brand, undef;
is $sophy->color, undef, 'color returns only if pripara-changed';
$sophy->pripara_change('Red Flash'); # Sophy can get to the PriPara World after eating Red Flash
ok $sophy->has_pripara_changed;
is $sophy->costume_brand, 'Holic Trick';
is $sophy->color, 'パープル', 'color returns only if pripara-changed';
};
subtest 'Sion' => sub {
my $sion = Acme::PriPara::MainMembers::TodoSion->new;
ok ! $sion->has_pripara_changed, 'initially not pripara-changed';
is $sion->name, 'æ±å ‚ シオン';
is $sion->firstname, 'シオン';
is $sion->lastname, 'æ±å ‚';
is $sion->age, 13;
is $sion->birthday, '1/5';
is $sion->blood_type, 'B';
is $sion->cv, '山北早紀';
is $sion->voiced_by, '山北早紀';
is $sion->costume_brand, undef;
is $sion->color, undef, 'color returns only if pripara-changed';
is $sion->say, 'イゴッ!';
$sion->pripara_change;
ok $sion->has_pripara_changed;
is $sion->costume_brand, 'Baby Monster';
is $sion->color, 'グリーン', 'color returns only if pripara-changed';
};
subtest 'Dorothy' => sub {
my $dorothy = Acme::PriPara::MainMembers::DorothyWest->new;
ok ! $dorothy->has_pripara_changed, 'initially not pripara-changed';
is $dorothy->name, 'ドãƒã‚·ãƒ¼ãƒ»ã‚¦ã‚§ã‚¹ãƒˆ';
is $dorothy->firstname, 'ドãƒã‚·ãƒ¼';
is $dorothy->lastname, 'ウェスト';
is $dorothy->age, 13;
is $dorothy->birthday, '2/5';
is $dorothy->blood_type, 'A';
is $dorothy->cv, 'æ¾è°·æ¢“希';
is $dorothy->voiced_by, 'æ¾è°·æ¢“希';
is $dorothy->color, undef, 'color returns only if pripara-changed';
is $dorothy->say, 'テンションマーックス!';
$dorothy->pripara_change;
ok ! $dorothy->has_pripara_changed;
is $dorothy->costume_brand, undef;
is $dorothy->color, undef, 'color returns only if pripara-changed';
my $reona = Acme::PriPara::MainMembers::ReonaWest->new;
$dorothy->pripara_change($reona); # Dorothy is always being with Reona ...
ok $dorothy->has_pripara_changed;
is $dorothy->costume_brand, 'Fortune Party';
is $dorothy->color, 'ブルー', 'color returns only if pripara-changed';
};
subtest 'Reona' => sub {
my $reona = Acme::PriPara::MainMembers::ReonaWest->new;
ok ! $reona->has_pripara_changed, 'initially not pripara-changed';
is $reona->name, 'レオナ・ウェスト';
is $reona->firstname, 'レオナ';
is $reona->lastname, 'ウェスト';
is $reona->age, 13;
is $reona->birthday, '2/5';
is $reona->blood_type, 'A';
is $reona->cv, '若井å‹å¸Œ';
is $reona->voiced_by, '若井å‹å¸Œ';
is $reona->color, undef, 'color returns only if pripara-changed';
is $reona->say, 'リラックス〜。';
$reona->pripara_change;
ok ! $reona->has_pripara_changed;
is $reona->costume_brand, undef;
is $reona->color, undef, 'color returns only if pripara-changed';
my $dorothy = Acme::PriPara::MainMembers::DorothyWest->new;
$reona->pripara_change($dorothy); # Reona is always being with Dorothy ...
ok $reona->has_pripara_changed;
is $reona->costume_brand, 'Fortune Party';
is $reona->color, 'レッド', 'color returns only if pripara-changed';
};
};
done_testing;
( run in 1.715 second using v1.01-cache-2.11-cpan-d80b1682f3f )