move !help out into its own default plugin

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;