From e8e07e2500b51ba65faf4a207bd4965e11d96d4d Mon Sep 17 00:00:00 2001
From: Neil Moore <neil@s-z.org>
Date: Tue, 25 Jun 2013 15:41:38 -0500
Subject: Add say_main method to say something in the main channel only.

---
 lib/Crawl/Bot.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'lib/Crawl/Bot.pm')

diff --git a/lib/Crawl/Bot.pm b/lib/Crawl/Bot.pm
index 135bef7..d78b259 100644
--- a/lib/Crawl/Bot.pm
+++ b/lib/Crawl/Bot.pm
@@ -106,4 +106,13 @@ sub say_all {
     ) for $self->channels;
 }
 
+sub say_main {
+    my $self = shift;
+    my ($message) = @_;
+    $self->say(
+        channel => ($self->channels)[0],
+        body    => $message,
+    );
+}
+
 1;
-- 
cgit v1.2.3-54-g00ecf