[p5sagit/Promulger.git] / lib / App / Promulger / Command / newlist.pm

package App::Promulger::Command::newlist;
use strict;
use warnings;

use App::Promulger -command;
use Promulger::List;

sub abstract {
  return "creates a new list";
}

sub run {
  my ($self, $opt, $args) = @_;
  @$args == 1 or die "pmg newlist needs a list name\n";
  my $list = Promulger::List->new(
    listname  => $args->[0],
  );
  $list->setup;
}

1;
Commit	Line	Data
514dce63	1	package App::Promulger::Command::newlist;
	2	use strict;
	3	use warnings;
	4
	5	use App::Promulger -command;
514dce63	6	use Promulger::List;
514dce63	7
	8	sub abstract {
	9	return "creates a new list";
	10	}
	11
514dce63	12	sub run {
514dce63	13	my ($self, $opt, $args) = @_;
f5baca29	14	@$args == 1 or die "pmg newlist needs a list name\n";
514dce63	15	my $list = Promulger::List->new(
	16	listname => $args->[0],
	17	);
21baaef0	18	$list->setup;
514dce63	19	}
	20
	21	1;