diff options
| author | Jesse Luehrs <doy@tozt.net> | 2009-10-06 02:20:14 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2009-10-06 02:20:14 -0500 |
| commit | a8855585f83184833fcecc74a989ae204d78de9b (patch) | |
| tree | fc53bd55e2d1a3b86b0b493f442f9db5abc91110 /lib/Games/SMTNocturne/Fusion/Types.pm | |
| parent | 28e3171b60e9ad338fe3b2b6b2e66c346d95ffd4 (diff) | |
| download | games-smtnocturne-fusion-a8855585f83184833fcecc74a989ae204d78de9b.tar.gz games-smtnocturne-fusion-a8855585f83184833fcecc74a989ae204d78de9b.zip | |
add multi methods for fusions_for, to handle different fusion types
Diffstat (limited to 'lib/Games/SMTNocturne/Fusion/Types.pm')
| -rw-r--r-- | lib/Games/SMTNocturne/Fusion/Types.pm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lib/Games/SMTNocturne/Fusion/Types.pm b/lib/Games/SMTNocturne/Fusion/Types.pm index 86f7fab..b62f483 100644 --- a/lib/Games/SMTNocturne/Fusion/Types.pm +++ b/lib/Games/SMTNocturne/Fusion/Types.pm @@ -7,7 +7,9 @@ BEGIN { Foul Seraph Wargod Genma Dragon Avatar Avian Raptor Entity Fiend); } use MooseX::Types - -declare => [qw(DemonType FusionType SMTDemon DemonList), @demon_types]; + -declare => [qw(DemonType FusionType SMTDemon DemonList + DeathstoneDemon EvolveDemon SpecialDemon), + @demon_types]; use MooseX::Types::Moose qw(ArrayRef Str); enum DemonType, @demon_types; @@ -28,4 +30,12 @@ for my $typename (@demon_types) { via { Games::SMTNocturne::Fusion::Demon->lookup($_) }; } +for my $typename (qw(Deathstone Evolve Special)) { + my $type = __PACKAGE__->can("${typename}Demon")->(); + subtype $type, as SMTDemon, + where { $_->does("Games::SMTNocturne::Fusion::Role::$typename") }; + coerce $type, from Str, + via { Games::SMTNocturne::Fusion::Demon->lookup($_) }; +} + 1; |