diff options
author | Jesse Luehrs <doy@tozt.net> | 2014-05-26 01:25:05 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2014-05-26 01:25:05 -0400 |
commit | 9dfaadc6745a3d0824d1c809289908134ca725a4 (patch) | |
tree | 6c4ecc4a978cff54cce3ecfd2a76347e5bf1b4a4 | |
parent | 890515d70ad9ea563f18f9ee624c3f6540eafe70 (diff) | |
download | games-smtnocturne-demons-9dfaadc6745a3d0824d1c809289908134ca725a4.tar.gz games-smtnocturne-demons-9dfaadc6745a3d0824d1c809289908134ca725a4.zip |
another function to get demon objects
-rw-r--r-- | lib/Games/SMTNocturne/Demons.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/Games/SMTNocturne/Demons.pm b/lib/Games/SMTNocturne/Demons.pm index 163f30c..cb399ce 100644 --- a/lib/Games/SMTNocturne/Demons.pm +++ b/lib/Games/SMTNocturne/Demons.pm @@ -3,11 +3,17 @@ use strict; use warnings; use Exporter 'import'; -our @EXPORT_OK = qw(fuse fusions_for); +our @EXPORT_OK = qw(demon fuse fusions_for); use Games::SMTNocturne::Demons::Demon; use Games::SMTNocturne::Demons::FusionChart; +sub demon { + my ($demon) = @_; + + return Games::SMTNocturne::Demons::Demon->from_name($demon); +} + sub fuse { my ($demon1, $demon2, $options) = @_; $options = { %{ $options || {} } }; |