From 3aa991222b32994c4a5f1c093e82179705cbd90c Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 26 May 2014 12:53:40 -0400
Subject: fusions should also display the result

---
 lib/Games/SMTNocturne/Demons/Fusion.pm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/lib/Games/SMTNocturne/Demons/Fusion.pm b/lib/Games/SMTNocturne/Demons/Fusion.pm
index fc84594..529c2c8 100644
--- a/lib/Games/SMTNocturne/Demons/Fusion.pm
+++ b/lib/Games/SMTNocturne/Demons/Fusion.pm
@@ -36,6 +36,18 @@ sub demons     { $_[0]->{demons} }
 sub sacrifice  { $_[0]->{sacrifice} }
 sub deathstone { $_[0]->{deathstone} }
 sub kagatsuchi { $_[0]->{kagatsuchi} }
+sub result {
+    my $self = shift;
+    require Games::SMTNocturne::Demons;
+    $self->{result} ||= Games::SMTNocturne::Demons::fuse(
+        @{ $self->demons },
+        {
+            sacrifice  => $self->sacrifice,
+            deathstone => $self->deathstone,
+            kagatsuchi => @{ $self->kagatsuchi || [] }[0],
+        }
+    );
+}
 
 sub all_demons {
     my $self = shift;
@@ -71,6 +83,7 @@ sub to_string {
     $str .= " when Kagutsuchi is at phase "
           . join(", ", map { "$_/8" } @{ $self->kagatsuchi })
         if defined $self->kagatsuchi;
+    $str .= " resulting in " . $self->result;
 
     return $str;
 }
-- 
cgit v1.2.3-54-g00ecf