view release on metacpan or  search on metacpan

lib/Acme/MetaSyntactic/morning_musume.pm  view on Meta::CPAN

package Acme::MetaSyntactic::morning_musume;
use strict;
use Acme::MetaSyntactic::MultiList;
use Acme::MorningMusume;
our @ISA     = qw( Acme::MetaSyntactic::MultiList );
our $VERSION = '1.002';

	my $musume = Acme::MorningMusume->new;
	#my @all      = map { $_->name_en } $musume->members;
	my @active   = map { $_->name_en } $musume->members('active');
	my @graduate = map { $_->name_en } $musume->members('graduate');

__PACKAGE__->init(
    {   default => 'active',
        names   => {
			active => join (' ', @active),
			graduate => join (' ', @graduate),
        },
    }
);