diff options
author | Jesse Luehrs <doy@tozt.net> | 2014-05-25 02:23:14 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2014-05-25 02:23:14 -0400 |
commit | 3812e89fbaec8075af2d8185d6ef0c32d13b3383 (patch) | |
tree | 99e7f09a1c6f2cb70f092243aba996c9a724b1d8 /lib/Games/SMTNocturne/Demons | |
parent | 4eba504c1522ecec0595db81cfffd04badf67e56 (diff) | |
download | games-smtnocturne-demons-3812e89fbaec8075af2d8185d6ef0c32d13b3383.tar.gz games-smtnocturne-demons-3812e89fbaec8075af2d8185d6ef0c32d13b3383.zip |
rename some things
Diffstat (limited to 'lib/Games/SMTNocturne/Demons')
-rw-r--r-- | lib/Games/SMTNocturne/Demons/Demon.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Games/SMTNocturne/Demons/Demon.pm b/lib/Games/SMTNocturne/Demons/Demon.pm index 6d8d73d..12d276e 100644 --- a/lib/Games/SMTNocturne/Demons/Demon.pm +++ b/lib/Games/SMTNocturne/Demons/Demon.pm @@ -19,7 +19,7 @@ for my $type (keys %DEMONS_BY_TYPE) { @$demons = sort { $a->{level} <=> $b->{level} } @$demons; } -sub new_from_name { +sub from_name { my ($class, $name) = @_; die "unknown demon $name" unless $DEMONS_BY_NAME{$name}; @@ -27,7 +27,7 @@ sub new_from_name { return bless { %{ $DEMONS_BY_NAME{$name} } }, $class; } -sub new_from_type_and_level { +sub from_type_and_level { my ($class, $type, $level) = @_; die "unknown type $type" unless $DEMONS_BY_TYPE{$type}; |