[p5sagit/Promulger.git] / lib / App / Promulger / msgbounce.pm

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

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

sub abstract {
  return "handle a potential bounce";
}

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

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