From 6a3e808ef1cbc34a586c88b56851223fa1bf4786 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 31 Oct 2009 02:54:22 -0500
Subject: add help text for cmdlist and help

---
 lib/IM/Engine/Plugin/Commands/Command/Cmdlist.pm | 4 ++++
 lib/IM/Engine/Plugin/Commands/Command/Help.pm    | 4 ++++
 2 files changed, 8 insertions(+)

diff --git a/lib/IM/Engine/Plugin/Commands/Command/Cmdlist.pm b/lib/IM/Engine/Plugin/Commands/Command/Cmdlist.pm
index 6d9444a..564e2c4 100644
--- a/lib/IM/Engine/Plugin/Commands/Command/Cmdlist.pm
+++ b/lib/IM/Engine/Plugin/Commands/Command/Cmdlist.pm
@@ -1,6 +1,10 @@
 package IM::Engine::Plugin::Commands::Command::Cmdlist;
 use IM::Engine::Plugin::Commands::OO;
 
+has '+help' => (
+    default => 'Displays a list of commands available to the bot',
+);
+
 sub init {
     my $self = shift;
     $self->is_active(0);
diff --git a/lib/IM/Engine/Plugin/Commands/Command/Help.pm b/lib/IM/Engine/Plugin/Commands/Command/Help.pm
index b28472a..f400157 100644
--- a/lib/IM/Engine/Plugin/Commands/Command/Help.pm
+++ b/lib/IM/Engine/Plugin/Commands/Command/Help.pm
@@ -1,6 +1,10 @@
 package IM::Engine::Plugin::Commands::Command::Help;
 use IM::Engine::Plugin::Commands::OO;
 
+has '+help' => (
+    default => 'Displays the help text for the given command',
+);
+
 sub default {
     my $self = shift;
     my ($sender, $action) = @_;
-- 
cgit v1.2.3