1 package App::Promulger::Command::newlist;
5 use App::Promulger -command;
9 return "creates a new list";
13 my ($self, $opt, $args) = @_;
14 @$args == 1 or die "pmg newlist needs a list name\n";
15 my $list = Promulger::List->new(
16 listname => $args->[0],