1 files changed, 12 insertions, 0 deletions
diff --git a/lib/Net/IRC.pm b/lib/Net/IRC.pm
index d46ae9e..4b93fe1 100644
--- a/lib/Net/IRC.pm
+++ b/lib/Net/IRC.pm
@@ -43,6 +43,7 @@ sub new {
     '_connhash'         => {},
     '_error'            => IO::Select->new(),
     '_debug'            => 0,
+    '_debugsock'        => 0,
     '_schedulequeue'    => new Net::IRC::EventQueue(),
     '_outputqueue'      => new Net::IRC::EventQueue(),
     '_read'             => IO::Select->new(),
@@ -115,6 +116,17 @@ sub debug {
   return $self->{_debug};
 }
 
+# Sets or returns the socket debugging flag for this object.
+# Takes 1 optional arg: a new boolean value for the flag.
+sub debugsock {
+  my $self = shift;
+  
+  if (@_) {
+    $self->{_debugsock} = $_[0];
+  }
+  return $self->{_debugsock};
+}
+
 # Goes through one iteration of the main event loop. Useful for integrating
 # other event-based systems (Tk, etc.) with Net::IRC.
 # Takes no args.