diff options
| author | Jesse Luehrs <doy@tozt.net> | 2009-10-06 00:01:28 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2009-10-06 00:18:50 -0500 |
| commit | 262066dd85e2cbfca6879ac8fb469b2fd1278337 (patch) | |
| tree | f0158b8b823591b177f932d4d0678c05cc319749 /lib/Games/SMTNocturne/Fusion/Types.pm | |
| parent | bab2170bd11c262de0730789d7e0dd26bec000af (diff) | |
| download | games-smtnocturne-fusion-262066dd85e2cbfca6879ac8fb469b2fd1278337.tar.gz games-smtnocturne-fusion-262066dd85e2cbfca6879ac8fb469b2fd1278337.zip | |
refactor demon types into actual subclasses
Diffstat (limited to 'lib/Games/SMTNocturne/Fusion/Types.pm')
| -rw-r--r-- | lib/Games/SMTNocturne/Fusion/Types.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Games/SMTNocturne/Fusion/Types.pm b/lib/Games/SMTNocturne/Fusion/Types.pm index f5276f9..86f7fab 100644 --- a/lib/Games/SMTNocturne/Fusion/Types.pm +++ b/lib/Games/SMTNocturne/Fusion/Types.pm @@ -22,7 +22,8 @@ coerce DemonList, from ArrayRef[Str], for my $typename (@demon_types) { my $type = __PACKAGE__->can($typename)->(); - subtype $type, as SMTDemon, where { $_->type eq $typename }; + class_type $type, + { class => "Games::SMTNocturne::Fusion::Demon::$typename" }; coerce $type, from Str, via { Games::SMTNocturne::Fusion::Demon->lookup($_) }; } |