lib/App/Promulger/msgbounce.pm

   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;