Acme-PriPara

 view release on metacpan or  search on metacpan

LICENSE  view on Meta::CPAN

MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
REPAIR OR CORRECTION.

  10. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.

                     END OF TERMS AND CONDITIONS

        Appendix: How to Apply These Terms to Your New Programs

  If you develop a new program, and you want it to be of the greatest
possible use to humanity, the best way to achieve this is to make it

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

    return $self->firstname . '・' . $self->lastname;
}

sub pripara_change {
    my ($self, $twin) = @_;
    $self->{has_pripara_changed} = 1 if ref $twin eq 'Acme::PriPara::MainMembers::ReonaWest';
}

1;

__DATA__

@@ DorothyWest
firstname: ドロシー
lastname: ウェスト
age: 13
birthday: 2/5
blood_type: A
cv: 澁谷梓希
say: テンションマーックス!
costume_brand: Fortune Party

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

no Mouse;

sub pripara_change { #override
    my ($self, $option) = @_; 
    return unless (defined $option && $option eq 'Red Flash');
    $self->{has_pripara_changed} = 1;
}

1;

__DATA__

@@ HojoSophy
firstname: そふぃ
lastname: 北条
age: 14
birthday: 7/30
blood_type: AB
cv: 久保田未夢
say: ぷしゅ〜
costume_brand: Holic Trick

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

package Acme::PriPara::MainMembers::ManakaLaara;
use Mouse;
extends 'Acme::PriPara::MainMembers';
use utf8;

no Mouse;

1;

__DATA__

@@ ManakaLaara
firstname: らぁら
lastname: 真中
age: 10
birthday: 11/20
blood_type: O
cv: 茜屋日海夏
say: かしこま！
costume_brand: Twinkle Ribbon

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

package Acme::PriPara::MainMembers::MinamiMirei;
use Mouse;
extends 'Acme::PriPara::MainMembers';
use utf8;

no Mouse;

1;

__DATA__

@@ MinamiMirei
firstname: みれぃ
lastname: 南
age: 13
birthday: 10/1
blood_type: A
cv: 芹澤優
say: ぷり
costume_brand: Candy à la Mode

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

}

sub pripara_change {
    my ($self, $twin) = @_;
    $self->{has_pripara_changed} = 1 if ref $twin eq 'Acme::PriPara::MainMembers::DorothyWest';
}


1;

__DATA__

@@ ReonaWest
firstname: レオナ
lastname: ウェスト
age: 13
birthday: 2/5
blood_type: A
cv: 若井友希
say: リラックス〜。
costume_brand: Fortune Party

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

package Acme::PriPara::MainMembers::TodoSion;
use Mouse;
extends 'Acme::PriPara::MainMembers';
use utf8;

no Mouse;

1;

__DATA__

@@ TodoSion
firstname: シオン
lastname: 東堂
age: 13
birthday: 1/5
blood_type: B
cv: 山北早紀
say: イゴッ!
costume_brand: Baby Monster