From da59a752a231b9efaea151f964aa23391a9d9c57 Mon Sep 17 00:00:00 2001
From: John Wittkoski <jwittkoski@gmail.com>
Date: Tue, 10 Jun 2014 22:02:18 -0400
Subject: [PATCH] Add caller_depth arg

---
 lib/Plack/Middleware/Log4perl.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Plack/Middleware/Log4perl.pm b/lib/Plack/Middleware/Log4perl.pm
index dccf1aced..92c5d9368 100644
--- a/lib/Plack/Middleware/Log4perl.pm
+++ b/lib/Plack/Middleware/Log4perl.pm
@@ -21,8 +21,9 @@ sub call {
     $env->{'psgix.logger'} = sub {
         my $args = shift;
         my $level = $args->{level};
+        my $caller_depth = $args->{caller_depth} || 0 ;
         local $Log::Log4perl::caller_depth
-            = $Log::Log4perl::caller_depth + 1;
+            = $Log::Log4perl::caller_depth + 1 + $caller_depth;
         $self->logger->$level($args->{message});
     };