X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FApp-EzPz.git;a=blobdiff_plain;f=lib%2FEmail%2FEzPz%2FList.pm;fp=lib%2FEmail%2FEzPz%2FList.pm;h=d8b81e95e159a8b2c739bf468736c004d928d28f;hp=1b60894c9217961555c768c58c44af77b0631dd3;hb=e191c67dedfa1ef6ef4278a4a088535bc880fc06;hpb=6a99a8c7e0ba1b91f2197dce11bf72aa88f8cda8

diff --git a/lib/Email/EzPz/List.pm b/lib/Email/EzPz/List.pm
index 1b60894..d8b81e9 100644
--- 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"
   );
 }