lib/Games/SMTNocturne/Fusion/KagutsuchiPhase.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

package Games::SMTNocturne::Fusion::KagutsuchiPhase;
use Moose;
use namespace::clean -except => 'meta';
use overload '""' => sub {
    my $self = shift;
    '<Kagutsuchi: ' . join(', ', map { $_ == 0 ? 'new'
                                     : $_ == 4 ? 'half'
                                     : $_ == 8 ? 'full'
                                     : $_ } $self->phases) . '>';
};
# use namespace::autoclean;

has phases => (
    traits   => ['Array'],
    isa      => 'ArrayRef[Int]',
    required => 1,
    handles  => {
        phases => 'elements',
    },
);

around BUILDARGS => sub {
    my $orig = shift;
    my $class = shift;
    my @phases = @_;
    return $class->$orig(phases => \@phases);
};

__PACKAGE__->meta->make_immutable;

1;