NullLogger for Category support

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

diff --git a/lib/Log/Contextual/NullLogger.pm b/lib/Log/Contextual/NullLogger.pm
new file mode 100644 (file)
index 0000000..1cf41d5
--- /dev/null
+++ b/lib/Log/Contextual/NullLogger.pm
@@ -0,0 +1,23 @@
+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;
+