[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 $listname = $args->[0];
  my $list = Promulger::List->new(
    listname  => $listname,
  );
  $list->setup;
}

'Make it so';
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";
9bfd7b60	15
9bfd7b60	16	my $listname = $args->[0];
514dce63	17	my $list = Promulger::List->new(
9bfd7b60	18	listname => $listname,
514dce63	19	);
21baaef0	20	$list->setup;
514dce63	21	}
514dce63	22
9bfd7b60	23	'Make it so';