Added API::IRC::mode

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.

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");
+}