package App::Promulger::Command::newlist;
-use strict;
-use warnings;
+use strictures 1;
+use autodie;
use App::Promulger -command;
use Promulger::List;
my $listname = $args->[0];
my $list = Promulger::List->new(
listname => $listname,
+ active => 1,
+ subscribers => {},
);
$list->setup;
}