view release on metacpan or  search on metacpan

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

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

our $VERSION = "0.04";

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;