File Coverage

blib/lib/Acme/Speed.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	28	28	100.0

package Acme::Speed;

use strict;
use warnings;

our $VERSION = "0.0.2";

my @members = qw(
    ArakakiHitoe
    UeharaTakako
    ImaiEriko
    ShimabukuroHiroko
);

sub new {
    my $class = shift;
    my $self = bless {members => []}, $class;

    $self->_initialize;

    return $self;
}

sub members {
    my $self = shift;
    my @members = @{$self->{members}};

    return @members;
}

sub _initialize {
    my $self = shift;

    for my $member (@members) {
        my $module_name = "Acme::Speed::Member::${member}";
        eval "require ${module_name};";

        push @{$self->{members}}, $module_name->new;
    }

    return 1;
}

1;
__END__