From 262066dd85e2cbfca6879ac8fb469b2fd1278337 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 6 Oct 2009 00:01:28 -0500
Subject: refactor demon types into actual subclasses

---
 lib/Games/SMTNocturne/Fusion/Types.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/Games/SMTNocturne/Fusion/Types.pm')

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($_) };
 }
-- 
cgit v1.2.3-54-g00ecf