web UI

[scpubgit/App-EzPz.git] / lib / Email / EzPz / List.pm

diff --git a/lib/Email/EzPz/List.pm b/lib/Email/EzPz/List.pm
index 1b60894..d8b81e9 100644 (file)
--- a/lib/Email/EzPz/List.pm
+++ b/lib/Email/EzPz/List.pm
@@ -5,6 +5,10 @@ use Moo;
 
 with 'Email::EzPz::ListCore';
 
+has name => (is => 'lazy');
+
+sub _build_name { (shift->list_dir =~ m{/([^/]+)$})[0] }
+
 sub sublist_type { () }
 
 foreach my $type (qw(allow deny mod digest)) {
@@ -19,7 +23,8 @@ sub _build_sublist {
   my ($self, $type) = @_;
   return use_module('Email::EzPz::SubList')->new(
     (map +($_ => $self->$_), qw(list_dir ezmlm_bindir)),
-    sublist_type => $type
+    sublist_type => $type,
+    name => $self->name." ${type} list"
   );
 }