From 6073711643e68487a1c9f75a84061c5f52eb91c6 Mon Sep 17 00:00:00 2001
From: Matthew Barksdale <mattwb65@gmail.com>
Date: Thu, 20 Jan 2011 01:14:08 -0500
Subject: [PATCH] Added API::IRC::mode

---
 doc/CHANGELOG  | 2 ++
 src/API/IRC.pm | 9 ++++++++-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/doc/CHANGELOG b/doc/CHANGELOG
index f028a4d..bee1f68 100644
--- a/doc/CHANGELOG
+++ b/doc/CHANGELOG
@@ -3,6 +3,8 @@ Auto IRC Bot 3.0: Change Log
 
 3.0 Indev
 ==================================================================
+    * Added mode subroutine to API::IRC.
+    * Added PASS support.
     * Bug fix: err() fatal errors now work. They didn't work
       due to bad regex.
     * Added an installation script.
diff --git a/src/API/IRC.pm b/src/API/IRC.pm
index 14b21c1..c407fcf 100644
--- a/src/API/IRC.pm
+++ b/src/API/IRC.pm
@@ -9,7 +9,7 @@ use warnings;
 use Exporter;
 
 our @ISA       = qw(Exporter);
-our @EXPORT_OK = qw(cjoin cpart);
+our @EXPORT_OK = qw(cjoin cpart mode);
 
 
 # Join a channel.
@@ -30,3 +30,10 @@ sub cpart {
 		Auto::socksnd($svr, "PART $chan :Leaving");
 	}
 }
+
+# Set a mode
+sub mode {
+	my ($svr, $chan, $modes) = @_;
+
+	Auto::socksnd($svr, "MODE $chan $modes");
+}