summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2014-05-26 01:25:05 -0400
committerJesse Luehrs <doy@tozt.net>2014-05-26 01:25:05 -0400
commit9dfaadc6745a3d0824d1c809289908134ca725a4 (patch)
tree6c4ecc4a978cff54cce3ecfd2a76347e5bf1b4a4
parent890515d70ad9ea563f18f9ee624c3f6540eafe70 (diff)
downloadgames-smtnocturne-demons-9dfaadc6745a3d0824d1c809289908134ca725a4.tar.gz
games-smtnocturne-demons-9dfaadc6745a3d0824d1c809289908134ca725a4.zip
another function to get demon objects
-rw-r--r--lib/Games/SMTNocturne/Demons.pm8
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 || {} } };