diff options
author | doy <doy@tozt.net> | 2008-11-26 14:14:53 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2008-11-26 14:14:53 -0500 |
commit | 99272e90ef6a970288597db09c288fbf77c4907b (patch) | |
tree | 7afe657b06731179a65fc5f86cb3850d6987a438 | |
parent | 57a2433dcdba7b7b92299eff0778f8a78bac2cb8 (diff) | |
download | log-dispatch-channels-99272e90ef6a970288597db09c288fbf77c4907b.tar.gz log-dispatch-channels-99272e90ef6a970288597db09c288fbf77c4907b.zip |
add remove_channel
-rw-r--r-- | lib/Log/Dispatch/Channels.pm | 7 |
1 files changed, 7 insertions, 0 deletions
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; |