package Acme::PriPara;
use 5.008001;
use strict;
use warnings;
use utf8;

our $VERSION = "0.02";

use Readonly;

Readonly our $Laara_and_Mirei => [
    'ManakaLaara',
    'MinamiMirei',
];
Readonly our $SoLaMi_Smile => [
    @$Laara_and_Mirei,
    'HojoSophy',
];

Readonly our $Dorothy_and_Reona => [
    'DorothyWest',
    'ReonaWest',
];
Readonly our $Dressing_Pafé => [
    'TodoSion',
    @$Dorothy_and_Reona,
];

Readonly our $MainMembers => [
    @$SoLaMi_Smile,
    @$Dressing_Pafé,
];

sub main_members {
    my $self = shift;
    return $self->members_of($MainMembers);
}

sub members_of {
    my ($self, $team) = @_;
    my @members;
    for my $member_name (@{ $team }) {
        my $pkg = "Acme::PriPara::MainMembers::$member_name";
         if (eval "require $pkg;1;") {
             push @members, $pkg->new;
        }
    }
    return @members;
}

1;
__END__

=encoding utf-8

=head1 NAME

Acme::PriPara - It's new $module

=head1 SYNOPSIS

    use Acme::PriPara;

    my ($laara, $mirei, $sophy, $sion, $dorothy, $reona) = Acme::PriPara->main_members;

    print $laara->name;            # => 真中 らぁら
    print $laara->firstname;       # => らぁら
    print $laara->lastname;        # => 真中
    print $laara->age;             # => 10
    print $laara->birthday;        # => 11/20
    print $laara->blood_type;      # => O
    print $laara->cv;              # => 茜屋日海夏
    print $laara->say;             # => かしこま！

    $laara->pripara_change;        # => $laara get into PriPara world
    print $laara->costume_brand;   # => Twinkle Ribbon
    print $laara->color;           # => ピンク

=head1 DESCRIPTION

SEE CONCEPT AT L<https://github.com/htk291/p5-Acme-PriPara/blob/master/etc/90_concept.t>

PriPara is a famous Japanese animation.  
Acme::PriPara provides characters information of PriPara.

=head1 SEE ALSO

=over 4

=item * PriPara Official Site

L<http://www.takaratomy-arts.co.jp/specials/pripara/>

=item * プリパラ (Wikipedia - ja)

L<http://ja.wikipedia.org/wiki/%E3%83%97%E3%83%AA%E3%83%91%E3%83%A9>

=item * PriPara (Wikipedia - en)

L<http://en.wikipedia.org/wiki/PriPara>

=back

=head1 LICENSE

Copyright (C) htk291.

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=head1 AUTHOR

htk291 E<lt>htk291@gmail.comE<gt>

=cut