diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-10-06 02:32:17 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-10-06 02:32:17 -0500 |
commit | b914e1b76e7e9f8cb8dbee0862315a4e223fcce6 (patch) | |
tree | 62dcf5a5e0fd7b7f393efa8e524d5f26f9168cfd /lib/Games/SMTNocturne/Fusion/Types.pm | |
parent | a8855585f83184833fcecc74a989ae204d78de9b (diff) | |
download | games-smtnocturne-fusion-b914e1b76e7e9f8cb8dbee0862315a4e223fcce6.tar.gz games-smtnocturne-fusion-b914e1b76e7e9f8cb8dbee0862315a4e223fcce6.zip |
add element fusions to make mitama
Diffstat (limited to 'lib/Games/SMTNocturne/Fusion/Types.pm')
-rw-r--r-- | lib/Games/SMTNocturne/Fusion/Types.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Games/SMTNocturne/Fusion/Types.pm b/lib/Games/SMTNocturne/Fusion/Types.pm index b62f483..cddece8 100644 --- a/lib/Games/SMTNocturne/Fusion/Types.pm +++ b/lib/Games/SMTNocturne/Fusion/Types.pm @@ -24,8 +24,8 @@ coerce DemonList, from ArrayRef[Str], for my $typename (@demon_types) { my $type = __PACKAGE__->can($typename)->(); - class_type $type, - { class => "Games::SMTNocturne::Fusion::Demon::$typename" }; + subtype $type, as SMTDemon, + where { $_->isa("Games::SMTNocturne::Fusion::Demon::$typename") }; coerce $type, from Str, via { Games::SMTNocturne::Fusion::Demon->lookup($_) }; } |