diff options
Diffstat (limited to 'lib/IM/Engine/Plugin/Commands/Command/Help.pm')
-rw-r--r-- | lib/IM/Engine/Plugin/Commands/Command/Help.pm | 16 |
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; |