X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FApp%2FClifton%2FTower%2FIRC.pm;fp=lib%2FApp%2FClifton%2FTower%2FIRC.pm;h=982d94f82004e80a5a1cb1736a6c4f0fbc285778;hb=3b5393442399a78f1fddb61c492eaa523c67e8fc;hp=5dffc0ef3a6f310c79ec23cdbb787995657f19ec;hpb=38180dc82ce612829b2c52d661e515fe60ac0f1d;p=scpubgit%2FClifton.git

diff --git a/lib/App/Clifton/Tower/IRC.pm b/lib/App/Clifton/Tower/IRC.pm
index 5dffc0e..982d94f 100644
--- a/lib/App/Clifton/Tower/IRC.pm
+++ b/lib/App/Clifton/Tower/IRC.pm
@@ -47,6 +47,13 @@ sub start_chain {
   });
 }
 
+sub stop_chain {
+  my ($self, $chain) = @_;
+  $self->irc_client->send_message('PART', undef, $chain->irc_channel);
+  delete $self->chains->{$chain->irc_channel};
+  $self->remove_child($chain);
+}
+
 sub send_irc_message {
   my ($self, $args) = @_;
   $self->irc_client->send_message('PRIVMSG', undef, @{$args}{qw(to text)});