Fix list creation, add a method to enumerate a list's subscribers.

[p5sagit/Promulger.git] / lib / Promulger / List.pm

diff --git a/lib/Promulger/List.pm b/lib/Promulger/List.pm
index 9e0e969..ad79fbf 100644 (file)
--- a/lib/Promulger/List.pm
+++ b/lib/Promulger/List.pm
@@ -6,8 +6,9 @@ use Carp;
 use Path::Class;
 use Fcntl ':flock';
 use Tie::File;
-use File::Slurp qw/read_file, write_file/;
+use File::Slurp qw/read_file write_file/;
 use Data::Dumper;
+use Try::Tiny;
 $Data::Dumper::Purity = 1;
 
 use Promulger::Config;
@@ -37,8 +38,10 @@ sub resolve {
   $proto =~ s/-request$//;
   my $path = find_path_for($proto);
   my $maybe_list;
-  eval {
+  try {
     $maybe_list = __PACKAGE__->load($path->stringify);
+  } catch {
+    die "oh noes: $_";
   };
   return $maybe_list;
 }
@@ -121,4 +124,13 @@ sub load {
   return do $path;
 }
 
+sub get_lists {
+  my ($self) = @_;
+  my $config = Promulger::Config->config;
+  my @lists = map { $_->basename}
+              grep { -f } dir($config->{list_home})->children;
+  s/\.list//g for @lists;
+  return @lists;
+}
+
 'http://mitpress.mit.edu/sicp/';