summaryrefslogtreecommitdiffstats
path: root/lib/IM/Engine/Plugin/Commands/Command/Help.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/IM/Engine/Plugin/Commands/Command/Help.pm')
-rw-r--r--lib/IM/Engine/Plugin/Commands/Command/Help.pm16
1 files changed, 16 insertions, 0 deletions
diff --git a/lib/IM/Engine/Plugin/Commands/Command/Help.pm b/lib/IM/Engine/Plugin/Commands/Command/Help.pm
new file mode 100644
index 0000000..b28472a
--- /dev/null
+++ b/lib/IM/Engine/Plugin/Commands/Command/Help.pm
@@ -0,0 +1,16 @@
+package IM::Engine::Plugin::Commands::Command::Help;
+use IM::Engine::Plugin::Commands::OO;
+
+sub default {
+ my $self = shift;
+ my ($sender, $action) = @_;
+ $self->is_active(0);
+ my $prefix = $self->_ime_plugin->prefix;
+ my $message = IM::Engine::Incoming->new(
+ sender => $self->_ime_plugin->_last_message->sender,
+ message => "${prefix}$action -help",
+ );
+ return $self->_ime_plugin->incoming($message);
+}
+
+1;