diff options
author | Jesse Luehrs <doy@tozt.net> | 2014-06-16 22:59:59 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2014-06-16 22:59:59 -0400 |
commit | e1346469d2375f4ec00be0927cc4ea195039471b (patch) | |
tree | 680c0954a6de5932d51222d2d93f09f97202f5ca | |
parent | 9cdb41b9182286fe654dfb760d914fddc135c4ec (diff) | |
download | games-smtnocturne-demons-e1346469d2375f4ec00be0927cc4ea195039471b.tar.gz games-smtnocturne-demons-e1346469d2375f4ec00be0927cc4ea195039471b.zip |
make all_demons sorted too
-rw-r--r-- | lib/Games/SMTNocturne/Demons/Demon.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Games/SMTNocturne/Demons/Demon.pm b/lib/Games/SMTNocturne/Demons/Demon.pm index 3b668d4..bc1e958 100644 --- a/lib/Games/SMTNocturne/Demons/Demon.pm +++ b/lib/Games/SMTNocturne/Demons/Demon.pm @@ -10,6 +10,9 @@ for my $name (keys %DEMONS_BY_NAME) { $DEMONS_BY_NAME{$name}{name} = $name; $DEMONS_BY_NAME{$name} = bless $DEMONS_BY_NAME{$name}, __PACKAGE__; } +my @DEMONS = sort { + $a->level <=> $b->level || $a->name cmp $b->name +} values %DEMONS_BY_NAME; my %DEMONS_BY_TYPE; for my $name (keys %DEMONS_BY_NAME) { @@ -31,7 +34,7 @@ sub from_name { sub all_demons { my $class = shift; - map { $class->from_name($_) } keys %DEMONS_BY_NAME; + return @DEMONS; } sub from_fusion_stats { |