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

package App::Promulger::Command::msg;
use strictures 1;
use autodie;

use App::Promulger -command;
use parent 'App::Promulger::Command';
use Promulger::Dispatch;

sub abstract {
  return "interacts with a list";
}

sub run {
  my ($self, $opt, $args) = @_;
  my $message = do {
    local $/;
    <STDIN>
  };
  Promulger::Dispatch->new->dispatch($message);
}

'Engage';
Commit	Line	Data
f5baca29	1	package App::Promulger::Command::msg;
2a007b5a	2	use strictures 1;
2a007b5a	3	use autodie;
f5baca29	4
	5	use App::Promulger -command;
	6	use parent 'App::Promulger::Command';
	7	use Promulger::Dispatch;
	8
	9	sub abstract {
	10	return "interacts with a list";
	11	}
	12
	13	sub run {
	14	my ($self, $opt, $args) = @_;
	15	my $message = do {
	16	local $/;
	17	<STDIN>
	18	};
9e4ca637	19	Promulger::Dispatch->new->dispatch($message);
f5baca29	20	}
f5baca29	21
9bfd7b60	22	'Engage';