summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2014-06-16 22:59:59 -0400
committerJesse Luehrs <doy@tozt.net>2014-06-16 22:59:59 -0400
commite1346469d2375f4ec00be0927cc4ea195039471b (patch)
tree680c0954a6de5932d51222d2d93f09f97202f5ca
parent9cdb41b9182286fe654dfb760d914fddc135c4ec (diff)
downloadgames-smtnocturne-demons-e1346469d2375f4ec00be0927cc4ea195039471b.tar.gz
games-smtnocturne-demons-e1346469d2375f4ec00be0927cc4ea195039471b.zip
make all_demons sorted too
-rw-r--r--lib/Games/SMTNocturne/Demons/Demon.pm5
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 {