allow passing in a string for channels rather than just an arrayref

1 files changed, 7 insertions, 2 deletions

diff --git a/lib/Log/Dispatch/Channels.pm b/lib/Log/Dispatch/Channels.pm
index aa2695d..2021710 100644
--- a/lib/Log/Dispatch/Channels.pm
+++ b/lib/Log/Dispatch/Channels.pm
@@ -29,13 +29,18 @@ sub new_channel {
 
 sub _forward_to_channels {
     my $self = shift;
-    my $channels = shift || [keys %{ $self->{channels} }];
+    my $channels = shift;
     my $method = shift;
+    my @channels = !defined $channels
+                 ? [keys %{ $self->{channels} }]
+                 : ref $channels
+                 ? @$channels
+                 : ($channels);
 
     # XXX: sort of a hack - the return value is only used by would_log, which
     # just wants a boolean
     my $ret = 0;
-    for my $channel (@$channels) {
+    for my $channel (@channels) {
         $ret ||= $self->{channels}{$channel}->$method(@_);
     }
     return $ret;