projects
/
p5sagit/Promulger.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
final bits of code to be useful
[p5sagit/Promulger.git]
/
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
'Engage';