diff options
author | Jesse Luehrs <doy@tozt.net> | 2014-05-26 13:05:12 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2014-05-26 13:05:12 -0400 |
commit | 0a9266d9d0dad05063b573fceec4372dc79fab1a (patch) | |
tree | 632eb7125964318651c11b24028838f272157669 /lib/Games/SMTNocturne | |
parent | 3aa991222b32994c4a5f1c093e82179705cbd90c (diff) | |
download | games-smtnocturne-demons-0a9266d9d0dad05063b573fceec4372dc79fab1a.tar.gz games-smtnocturne-demons-0a9266d9d0dad05063b573fceec4372dc79fab1a.zip |
need to pass options through here too
Diffstat (limited to 'lib/Games/SMTNocturne')
-rw-r--r-- | lib/Games/SMTNocturne/Demons/Fusion.pm | 5 |
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], |