Permalink
Browse files

allowing method chaining and whatnot

This should fix RT #78924 by Bob Stockdale (thanks for reporting!)
  • Loading branch information...
garu committed Aug 13, 2012
1 parent 6971479 commit d49c2508c470958425be6f63c833f22987fe9d7b
Showing with 3 additions and 1 deletion.
  1. +3 −1 lib/MojoX/Log/Log4perl.pm
@@ -50,9 +50,11 @@ sub new {
*{ __PACKAGE__ . "::$level" } =
sub {
+ my $self = shift;
local $Log::Log4perl::caller_depth =
$Log::Log4perl::caller_depth + 1;
- shift->_get_logger->$level(@_);
+ $self->_get_logger->$level(@_);
+ return $self;
};
}
}

0 comments on commit d49c250

Please sign in to comment.