summaryrefslogtreecommitdiffstats
path: root/lib/Games
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2014-05-26 13:05:12 -0400
committerJesse Luehrs <doy@tozt.net>2014-05-26 13:05:12 -0400
commit0a9266d9d0dad05063b573fceec4372dc79fab1a (patch)
tree632eb7125964318651c11b24028838f272157669 /lib/Games
parent3aa991222b32994c4a5f1c093e82179705cbd90c (diff)
downloadgames-smtnocturne-demons-0a9266d9d0dad05063b573fceec4372dc79fab1a.tar.gz
games-smtnocturne-demons-0a9266d9d0dad05063b573fceec4372dc79fab1a.zip
need to pass options through here too
Diffstat (limited to 'lib/Games')
-rw-r--r--lib/Games/SMTNocturne/Demons/Fusion.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Games/SMTNocturne/Demons/Fusion.pm b/lib/Games/SMTNocturne/Demons/Fusion.pm
index 529c2c8..045b1c6 100644
--- a/lib/Games/SMTNocturne/Demons/Fusion.pm
+++ b/lib/Games/SMTNocturne/Demons/Fusion.pm
@@ -6,7 +6,7 @@ use overload '""' => 'to_string';
use Games::SMTNocturne::Demons::Demon;
sub new {
- my ($class, $demon1, $demon2, $sacrifice, $kagatsuchi) = @_;
+ my ($class, $demon1, $demon2, $options, $sacrifice, $kagatsuchi) = @_;
my $attrs = {};
@@ -28,10 +28,12 @@ sub new {
}
$attrs->{kagatsuchi} = $kagatsuchi;
+ $attrs->{options} = $options || {};
return bless $attrs, $class;
}
+sub options { $_[0]->{options} }
sub demons { $_[0]->{demons} }
sub sacrifice { $_[0]->{sacrifice} }
sub deathstone { $_[0]->{deathstone} }
@@ -42,6 +44,7 @@ sub result {
$self->{result} ||= Games::SMTNocturne::Demons::fuse(
@{ $self->demons },
{
+ %{ $self->options },
sacrifice => $self->sacrifice,
deathstone => $self->deathstone,
kagatsuchi => @{ $self->kagatsuchi || [] }[0],