File Coverage

blib/lib/Log/Contextual/TeeLogger.pm

Criterion	Covered	Total	%
statement	9	22	40.9
branch	0	4	0.0
condition			n/a
subroutine	3	6	50.0
pod	1	1	100.0
total	13	33	39.3

package Log::Contextual::TeeLogger;
use strict;
use warnings;

our $VERSION = '0.009001';

{
  for my $name (qw( trace debug info warn error fatal )) {

    no strict 'refs';

    *{$name} = sub {
      my $self = shift;

      foreach my $logger (@{$self->{loggers}}) {
        $logger->$name(@_);
      }
    };

    my $is_name = "is_${name}";

    *{$is_name} = sub {
      my $self = shift;
      foreach my $logger (@{$self->{loggers}}) {
        return 1 if $logger->$is_name(@_);
      }
      return 0;
    };
  }
}

sub new {
  my ($class, $args) = @_;
  my $self = bless {}, $class;

  ref($self->{loggers} = $args->{loggers}) eq 'ARRAY'
    or die "No loggers passed to tee logger";

  return $self;
}

1;

__END__