From 99272e90ef6a970288597db09c288fbf77c4907b Mon Sep 17 00:00:00 2001 From: doy Date: Wed, 26 Nov 2008 14:14:53 -0500 Subject: add remove_channel --- lib/Log/Dispatch/Channels.pm | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lib/Log/Dispatch/Channels.pm b/lib/Log/Dispatch/Channels.pm index aeb52b1..fad047d 100644 --- a/lib/Log/Dispatch/Channels.pm +++ b/lib/Log/Dispatch/Channels.pm @@ -27,6 +27,13 @@ sub new_channel { $self->{channels}{$channel} = Log::Dispatch->new(@_); } +sub remove_channel { + my $self = shift; + my $channel = shift; + + return delete $self->{channels}{$channel}; +} + sub _forward_to_channels { my $self = shift; my $channels = shift; -- cgit v1.2.3-54-g00ecf