allow listing all demons of a given type

1 files changed, 9 insertions, 3 deletions

diff --git a/bin/smt_fusion b/bin/smt_fusion
index 75538ce..6954425 100644
--- a/bin/smt_fusion
+++ b/bin/smt_fusion
@@ -7,9 +7,10 @@ use List::Util 'max';
 
 use Games::SMTNocturne::Demons;
 
-sub _demon       { Games::SMTNocturne::Demons::demon(@_) }
-sub _fuse        { Games::SMTNocturne::Demons::fuse(@_) }
-sub _fusions_for { Games::SMTNocturne::Demons::fusions_for(@_) }
+sub _demon          { Games::SMTNocturne::Demons::demon(@_) }
+sub _demons_of_type { Games::SMTNocturne::Demons::demons_of_type(@_) }
+sub _fuse           { Games::SMTNocturne::Demons::fuse(@_) }
+sub _fusions_for    { Games::SMTNocturne::Demons::fusions_for(@_) }
 
 my $command = shift @ARGV;
 
@@ -42,6 +43,11 @@ sub demon {
     print _demon($demon), "\n";
 }
 
+sub demons_of_type {
+    my ($type) = @_;
+    print join("\n", _demons_of_type($type)), "\n";
+}
+
 sub fuse {
     my ($demon1, $demon2) = @_;
     print _fuse($demon1, $demon2, $options), "\n";