diff options
author | Jesse Luehrs <doy@tozt.net> | 2014-05-26 13:27:53 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2014-05-26 13:27:53 -0400 |
commit | a6b29a0d67b261c52b79033c1f140502b27cf428 (patch) | |
tree | 3837852e458f6e175082fdb03fdbf7c18d78e789 /lib/Games/SMTNocturne/Demons | |
parent | 0609a60adedf6620eeac60e5701f9416c4702826 (diff) | |
download | games-smtnocturne-demons-a6b29a0d67b261c52b79033c1f140502b27cf428.tar.gz games-smtnocturne-demons-a6b29a0d67b261c52b79033c1f140502b27cf428.zip |
pass options through everywhere
Diffstat (limited to 'lib/Games/SMTNocturne/Demons')
-rw-r--r-- | lib/Games/SMTNocturne/Demons/Fusion.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Games/SMTNocturne/Demons/Fusion.pm b/lib/Games/SMTNocturne/Demons/Fusion.pm index 045b1c6..9ffe9bb 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, $options, $sacrifice, $kagatsuchi) = @_; + my ($class, $options, $demon1, $demon2, $sacrifice, $kagatsuchi) = @_; my $attrs = {}; @@ -63,7 +63,7 @@ sub all_demons { sub raw { my $self = shift; - my $array = [ @{ $self->demons } ]; + my $array = [ $self->options, @{ $self->demons } ]; push @$array, $self->sacrifice if $self->sacrifice; push @$array, "<deathstone>" |