Acme-PrettyCure

 view release on metacpan or  search on metacpan

lib/Acme/PrettyCure/CureAqua.pm  view on Meta::CPAN

package Acme::PrettyCure::CureAqua;
use utf8;
use Any::Moose;

with 'Acme::PrettyCure::Role';

sub human_name   {'水無月かれん'}
sub precure_name {'キュアアクア'}
sub age          {15}
sub challenge { '知性の青き泉、キュアアクア!' }

no Any::Moose;

lib/Acme/PrettyCure/CureBerry.pm  view on Meta::CPAN

package Acme::PrettyCure::CureBerry;
use utf8;
use Any::Moose;

with 'Acme::PrettyCure::Role';

sub human_name   {'蒼乃美希'}
sub precure_name {'キュアベリー'}
sub age          {14}
sub challenge { qw(ブルーのハートは希望の印 つみたてフレッシュ、キュアベリー!) }

lib/Acme/PrettyCure/CureBlack.pm  view on Meta::CPAN

package Acme::PrettyCure::CureBlack;
use utf8;
use Any::Moose;

with 'Acme::PrettyCure::Role';

sub human_name   {'美墨なぎさ'}
sub precure_name {'キュアブラック'}
sub birthday     { Time::Piece->( '1990/10/10', '%Y/%m/%d' ) }
sub age          {14}
sub blood_type   {'O'}
sub challenge {

lib/Acme/PrettyCure/CureBloom.pm  view on Meta::CPAN

package Acme::PrettyCure::CureBloom;
use utf8;
use Any::Moose;

with 'Acme::PrettyCure::Role';

sub human_name   {'日向咲'}
sub precure_name {'キュアブルーム'}
sub birthday     { Time::Piece->( '1992/08/07', '%Y/%m/%d' ) }
sub age          {14}
sub blood_type   {'O'}
sub challenge {

lib/Acme/PrettyCure/CureBlossom.pm  view on Meta::CPAN

package Acme::PrettyCure::CureBlossom;
use utf8;
use Any::Moose;

with 'Acme::PrettyCure::Role';

sub human_name   {'花咲つぼみ'}
sub precure_name {'キュアブロッサム'}
sub age          {14}
sub challenge { qw(大地に咲く一輪の花、キュアブロッサム!) }

lib/Acme/PrettyCure/CureBright.pm  view on Meta::CPAN

package Acme::PrettyCure::CureBright;
use utf8;
use Any::Moose;

extends 'Acme::PrettyCure::CureBloom';

override 'precure_name' => sub {'キュアブライト'};
override 'challenge' => sub {
    qw(
       天空に満ちる月、キュアブライト!
       大地に薫る風、キュアウィンディ!
       ふたりはプリキュア! 

lib/Acme/PrettyCure/CureDream.pm  view on Meta::CPAN

package Acme::PrettyCure::CureDream;
use utf8;
use Any::Moose;

with 'Acme::PrettyCure::Role';

sub human_name   {'夢原のぞみ'}
sub precure_name {'キュアドリーム'}
sub age          {14}
sub challenge { '大いなる希望の力、キュアドリーム!' }

after 'transform' => sub {

lib/Acme/PrettyCure/CureEgret.pm  view on Meta::CPAN

package Acme::PrettyCure::CureEgret;
use utf8;
use Any::Moose;

with 'Acme::PrettyCure::Role';

sub human_name   {'美翔舞'}
sub precure_name {'キュアイーグレット'}
sub birthday     { Time::Piece->( '1992/11/20', '%Y/%m/%d' ) }
sub age          {14}
sub blood_type   {'AB'}
sub challenge {

lib/Acme/PrettyCure/CureLemonade.pm  view on Meta::CPAN

package Acme::PrettyCure::CureLemonade;
use utf8;
use Any::Moose;

with 'Acme::PrettyCure::Role';

sub human_name   {'春日野うらら'}
sub precure_name {'キュアレモネード'}
sub age          {13}
sub challenge { 'はじけるレモンの香り、キュアレモネード!' }

no Any::Moose;

lib/Acme/PrettyCure/CureMarine.pm  view on Meta::CPAN

package Acme::PrettyCure::CureMarine;
use utf8;
use Any::Moose;

with 'Acme::PrettyCure::Role';

sub human_name   {'来海えりか'}
sub precure_name {'キュアマリン'}
sub age          {14}
sub challenge { qw(海風に揺れる一輪の花、キュアマリン!) }

lib/Acme/PrettyCure/CureMint.pm  view on Meta::CPAN

package Acme::PrettyCure::CureMint;
use utf8;
use Any::Moose;

with 'Acme::PrettyCure::Role';

sub human_name   {'秋元こまち'}
sub precure_name {'キュアミント'}
sub age          {15}
sub challenge { 'やすらぎの緑の大地、キュアミント!' }

no Any::Moose;

lib/Acme/PrettyCure/CureMoonlight.pm  view on Meta::CPAN

package Acme::PrettyCure::CureMoonlight;
use utf8;
use Any::Moose;

with 'Acme::PrettyCure::Role';

sub human_name   {'月影ゆり'}
sub precure_name {'キュアムーンライト'}
sub age          {17}
sub challenge { qw(月光に冴える一輪の花、キュアムーンライト!) }

lib/Acme/PrettyCure/CurePassion.pm  view on Meta::CPAN

package Acme::PrettyCure::CurePassion;
use utf8;
use Any::Moose;

with 'Acme::PrettyCure::Role';

sub human_name   {'東せつな'}
sub precure_name {'キュアパッション'}
sub age          {14}
sub challenge { qw(真っ赤なハートは幸せの証 うれたてフレッシュ、キュアパッション!) }

lib/Acme/PrettyCure/CurePeach.pm  view on Meta::CPAN

package Acme::PrettyCure::CurePeach;
use utf8;
use Any::Moose;

with 'Acme::PrettyCure::Role';

sub human_name   {'桃園ラブ'}
sub precure_name {'キュアピーチ'}
sub age          {14}
sub challenge { qw(ピンクのハートは愛ある印 もぎたてフレッシュ、キュアピーチ!) }

lib/Acme/PrettyCure/CurePine.pm  view on Meta::CPAN

package Acme::PrettyCure::CurePine;
use utf8;
use Any::Moose;

with 'Acme::PrettyCure::Role';

sub human_name   {'山吹祈里'}
sub precure_name {'キュアパイン'}
sub age          {14}
sub challenge { qw(イエローハートは祈りの印 とれたてフレッシュ、キュアパイン!) }

lib/Acme/PrettyCure/CureRouge.pm  view on Meta::CPAN

package Acme::PrettyCure::CureRouge;
use utf8;
use Any::Moose;

with 'Acme::PrettyCure::Role';

sub human_name   {'夏木りん'}
sub precure_name {'キュアルージュ'}
sub age          {14}
sub challenge { '情熱の赤い炎、キュアルージュ!' }

no Any::Moose;

lib/Acme/PrettyCure/CureSunshine.pm  view on Meta::CPAN

package Acme::PrettyCure::CureSunshine;
use utf8;
use Any::Moose;

with 'Acme::PrettyCure::Role';

sub human_name   {'明堂院いつき'}
sub precure_name {'キュアサンシャイン'}
sub age          {14}
sub challenge { qw(陽の光浴びる一輪の花、キュアサンシャイン!) }

lib/Acme/PrettyCure/CureWhite.pm  view on Meta::CPAN

package Acme::PrettyCure::CureWhite;
use utf8;
use Any::Moose;

use Time::Piece;

with 'Acme::PrettyCure::Role';

sub human_name   {'雪城ほのか'}
sub precure_name {'キュアホワイト'}
sub birthday     { Time::Piece->new( '1990/04/04', '%Y/%m/%d' ) }
sub age          { 14 }

lib/Acme/PrettyCure/CureWindy.pm  view on Meta::CPAN

package Acme::PrettyCure::CureWindy;
use utf8;
use Any::Moose;

extends 'Acme::PrettyCure::CureEgret';

override 'precure_name' => sub {'キュアウィンディ'};
override 'challenge' => sub {
    qw(
       天空に満ちる月、キュアブライト!
       大地に薫る風、キュアウィンディ!
       ふたりはプリキュア! 

lib/Acme/PrettyCure/MilkyRose.pm  view on Meta::CPAN

package Acme::PrettyCure::MilkyRose;
use utf8;
use Any::Moose;

with 'Acme::PrettyCure::Role';

has 'is_fairy' => (is => 'rw', isa => 'Bool', default => sub { 0 });

sub fairy_name   {'ミルク'}
sub human_name   {'美々野くるみ'}
sub precure_name {'ミルキィーローズ'}
sub age          {14}

lib/Acme/PrettyCure/Role.pm  view on Meta::CPAN

package Acme::PrettyCure::Role;
use utf8;
use Any::Moose '::Role';

use Encode;

requires qw(human_name precure_name challenge);

has 'is_precure' => (is => 'rw', isa => 'Bool', default => sub { 0 });

sub say {
    my ($self, $text) = @_;
    print encode_utf8("$text\n");
}

sub name {
    my $self = shift;

    return $self->is_precure ? $self->precure_name : $self->human_name;
}

sub transform {
    my ($self, $buddy) = @_;

lib/Acme/PrettyCure/ShinyLuminous.pm  view on Meta::CPAN

package Acme::PrettyCure::ShinyLuminous;
use utf8;
use Any::Moose;

with 'Acme::PrettyCure::Role';

sub human_name   {'九条ひかり'}
sub precure_name {'シャイニー・ルミナス'}
sub birthday     { Time::Piece->( '1990/02/02', '%Y/%m/%d' ) }
sub age          {13}
sub blood_type   {'AB'}
sub challenge {

t/01_transform.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;

use Acme::PrettyCure;

my @members = Acme::PrettyCure->members('AllStar');

for my $member (@members) {
    is $member->name, $member->human_name;
    next if ref($member) =~ /Cure(Black|White|Bloom|Egret)/;
    $member->transform;

t/10_allstar.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;

use Acme::PrettyCure;

my @members = Acme::PrettyCure->members('AllStar');

is scalar(@members), 19, 'pretty cure allstar';

my @dx1 = Acme::PrettyCure->members('AllStarDX1');

t/10_first.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;
use Test::Exception;

use Acme::PrettyCure;

# skip warnings
binmode(Test::More->builder->$_, ':utf8') for qw/failure_output output todo_output/;

my ($nagi, $hono) = Acme::PrettyCure->members('First');

isa_ok $nagi, 'Acme::PrettyCure::CureBlack';
isa_ok $hono, 'Acme::PrettyCure::CureWhite';

throws_ok { $nagi->transform } qr/メポ/, '初代は単独変身不可能';
throws_ok { $nagi->transform($nagi) } qr/メポ/, 'ほのか以外とも変身は出来ない';

throws_ok { $hono->transform } qr/ミポ/, '初代は単独変身不可能';

t/10_five.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;

use Acme::PrettyCure;

my ($nozomi, $rin, $urara, $komachi, $karen) = Acme::PrettyCure->members('Five');

isa_ok $nozomi,  'Acme::PrettyCure::CureDream';
isa_ok $rin,     'Acme::PrettyCure::CureRouge';
isa_ok $urara,   'Acme::PrettyCure::CureLemonade';
isa_ok $komachi, 'Acme::PrettyCure::CureMint';

t/10_fivegogo.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;

use Acme::PrettyCure;

my ( $nozomi, $rin, $urara, $komachi, $karen, $kurumi )
    = Acme::PrettyCure->members('FiveGoGo');

isa_ok $nozomi,  'Acme::PrettyCure::CureDream';
isa_ok $rin,     'Acme::PrettyCure::CureRouge';
isa_ok $urara,   'Acme::PrettyCure::CureLemonade';

t/10_fresh.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;

use Acme::PrettyCure;

my ($love, $miki, $bukky, $setsu) = Acme::PrettyCure->members('Fresh');

isa_ok $love,  'Acme::PrettyCure::CurePeach';
isa_ok $miki,  'Acme::PrettyCure::CureBerry';
isa_ok $bukky, 'Acme::PrettyCure::CurePine';
isa_ok $setsu, 'Acme::PrettyCure::CurePassion';

t/10_heartcatch.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;

use Acme::PrettyCure;

my ( $tsubomi, $erika, $itsuki, $yuri )
    = Acme::PrettyCure->members('HeartCatch');

isa_ok $tsubomi, 'Acme::PrettyCure::CureBlossom';
isa_ok $erika,   'Acme::PrettyCure::CureMarine';
isa_ok $itsuki,  'Acme::PrettyCure::CureSunshine';

t/10_maxheart.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;

use Acme::PrettyCure;

my ($nagi, $hono, $hikari) = Acme::PrettyCure->members('MaxHeart');

isa_ok $nagi,   'Acme::PrettyCure::CureBlack';
isa_ok $hono,   'Acme::PrettyCure::CureWhite';
isa_ok $hikari, 'Acme::PrettyCure::ShinyLuminous';