lib/App/Promulger/Command/msg.pm

   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   };
  19   Promulger::Dispatch::dispatch($message);
  20 }
  21
  22 1;