From 97b7df9631adf914eaf11212768a1ce32cb12b16 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 26 May 2014 10:26:11 -0400
Subject: allow listing all demons of a given type

---
 bin/smt_fusion | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'bin/smt_fusion')

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";
-- 
cgit v1.2.3-54-g00ecf