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

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

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::dispatch($message);
}

'Engage';
Commit	Line	Data
f5baca29	1	package App::Promulger::Command::msg;
	2	use strict;
	3	use warnings;
	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	};
21baaef0	19	Promulger::Dispatch::dispatch($message);
f5baca29	20	}
f5baca29	21
9bfd7b60	22	'Engage';