[p5sagit/Log-Contextual.git] / lib / Log / Contextual / NullLogger.pm

package Log::Contextual::NullLogger;

use strict;
use warnings;

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

    no strict 'refs';

    *{$name} = sub {};

    *{"is_$name"} = sub { 0 };
  }
}

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

1;
Commit	Line	Data
b03d1bdb	1	package Log::Contextual::NullLogger;
	2
	3	use strict;
	4	use warnings;
	5
	6	{
	7	for my $name (qw( trace debug info warn error fatal )) {
	8
	9	no strict 'refs';
	10
	11	*{$name} = sub {};
	12
	13	*{"is_$name"} = sub { 0 };
	14	}
	15	}
	16
	17	sub new {
	18	my ($class, $args) = @_;
	19	bless {}, $class;
	20	}
	21
	22	1;
	23