initial Log4perl commit

diff --git a/lib/Log/Contextual.pm b/lib/Log/Contextual.pm
index 7a9349a..3d8d5b2 100644 (file)
--- a/lib/Log/Contextual.pm
+++ b/lib/Log/Contextual.pm
@@ -1,7 +1,4 @@
 # add example for Log::Dispatchouli
-# make wrapper for Log::Log4perl that fixes callstack:
-#   < mst> sub debug { local $Log::Log4perl::caller_depth =
-#          $Log::Log4perl::caller_depth + 3; shift->{l4p}->debug(@_) }
 #
 #   default logger stuff
 #   < mst> there are two cases

diff --git a/lib/Log/Contextual/Log4perl.pm b/lib/Log/Contextual/Log4perl.pm
new file mode 100644 (file)
index 0000000..c4828db
--- /dev/null
+++ b/lib/Log/Contextual/Log4perl.pm
@@ -0,0 +1,15 @@
+# make wrapper for Log::Log4perl that fixes callstack:
+#   < mst> sub debug { local $Log::Log4perl::caller_depth =
+#          $Log::Log4perl::caller_depth + 3; shift->{l4p}->debug(@_) }
+package Log::Contextual::Log4perl;
+
+1;
+
+__END__
+
+=head1 NAME
+
+Log::Contextual::Log4perl - wrapper to fix callstack for Log::Log4perl::Logger
+
+=cut
+