From a8855585f83184833fcecc74a989ae204d78de9b Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 6 Oct 2009 02:20:14 -0500
Subject: add multi methods for fusions_for, to handle different fusion types

---
 lib/Games/SMTNocturne/Fusion/Chart.pm | 20 ++++++++++++++++++--
 1 file changed, 18 insertions(+), 2 deletions(-)

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

diff --git a/lib/Games/SMTNocturne/Fusion/Chart.pm b/lib/Games/SMTNocturne/Fusion/Chart.pm
index 5bbea86..a5b226b 100644
--- a/lib/Games/SMTNocturne/Fusion/Chart.pm
+++ b/lib/Games/SMTNocturne/Fusion/Chart.pm
@@ -3,7 +3,9 @@ use Moose;
 use MooseX::ClassAttribute;
 use MooseX::MultiMethods;
 use YAML::Any qw(Load);
-use Games::SMTNocturne::Fusion::Types qw(DemonType SMTDemon Element Mitama);
+use Games::SMTNocturne::Fusion::Types
+    qw(DemonType SMTDemon Element Mitama
+       DeathstoneDemon EvolveDemon SpecialDemon);
 use MooseX::Types::Moose qw(HashRef Maybe);
 use constant Demon => 'Games::SMTNocturne::Fusion::Demon';
 use namespace::autoclean;
@@ -70,7 +72,7 @@ multi method fuse (ClassName $self: Mitama $demon1 is coerce,
     return;
 }
 
-method fusions_for (ClassName $self: SMTDemon $demon is coerce) {
+multi method fusions_for (ClassName $self: SMTDemon $demon is coerce) {
     my $type = $demon->type;
     my @type_combos;
     for my $type1 (keys %{ $self->_type_chart }) {
@@ -99,6 +101,20 @@ method fusions_for (ClassName $self: SMTDemon $demon is coerce) {
     return @found;
 }
 
+multi method fusions_for (ClassName $self: SpecialDemon $demon is coerce) {
+    # XXX: fix
+    return;
+}
+
+multi method fusions_for (ClassName $self: EvolveDemon $demon is coerce) {
+    return;
+}
+
+multi method fusions_for (ClassName $self: DeathstoneDemon $demon is coerce) {
+    # XXX: fix
+    return;
+}
+
 __PACKAGE__->meta->make_immutable;
 
 1;
-- 
cgit v1.2.3-54-g00ecf