1 files changed, 77 insertions, 0 deletions
diff --git a/lib/Games/SMTNocturne/Demons/Fusion.pm b/lib/Games/SMTNocturne/Demons/Fusion.pm
new file mode 100644
index 0000000..77a50bf
--- /dev/null
+++ b/lib/Games/SMTNocturne/Demons/Fusion.pm
@@ -0,0 +1,77 @@
+package Games::SMTNocturne::Demons::Fusion;
+use strict;
+use warnings;
+use overload '""' => 'to_string';
+
+use Games::SMTNocturne::Demons::Demon;
+
+sub new {
+    my ($class, $demon1, $demon2, $sacrifice, $kagatsuchi) = @_;
+
+    my $attrs = {};
+
+    $demon1 = Games::SMTNocturne::Demons::Demon->from_name($demon1)
+        unless ref($demon1);
+    $demon2 = Games::SMTNocturne::Demons::Demon->from_name($demon2)
+        unless ref($demon2);
+    $attrs->{demons} = [ sort { $a->name cmp $b->name } $demon1, $demon2 ];
+
+    if ($sacrifice) {
+        if ($sacrifice eq '<deathstone>') {
+            $attrs->{deathstone} = 1;
+        }
+        else {
+            $sacrifice = Games::SMTNocturne::Demons::Demon->from_name($sacrifice)
+                unless ref($sacrifice);
+            $attrs->{sacrifice} = $sacrifice;
+        }
+    }
+
+    $attrs->{kagatsuchi} = $kagatsuchi;
+
+    return bless $attrs, $class;
+}
+
+sub demons     { $_[0]->{demons} }
+sub sacrifice  { $_[0]->{sacrifice} }
+sub deathstone { $_[0]->{deathstone} }
+sub kagatsuchi { $_[0]->{kagatsuchi} }
+
+sub all_demons {
+    my $self = shift;
+
+    return (
+        @{ $self->demons },
+        ($self->sacrifice ? ($self->sacrifice) : ()),
+    );
+}
+
+sub raw {
+    my $self = shift;
+    my $array = [ @{ $self->demons } ];
+    push @$array, $self->sacrifice
+        if $self->sacrifice;
+    push @$array, "<deathstone>"
+        if $self->deathstone;
+    push @$array, $self->kagatsuchi
+        if defined $self->kagatsuchi;
+    return $array;
+}
+
+sub to_string {
+    my $self = shift;
+
+    my $str = "Fuse " . $self->demons->[0]
+            . " with " . $self->demons->[1];
+
+    $str .= " while sacrificing " . $self->sacrifice
+        if $self->sacrifice;
+    $str .= " while sacrificing a deathstone"
+        if $self->deathstone;
+    $str .= " when Kagutsuchi is at phase " . $self->kagatsuchi . "/8"
+        if defined $self->kagatsuchi;
+
+    return $str;
+}
+
+1;