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

# 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
Commit	Line	Data
36800dd7	1	# make wrapper for Log::Log4perl that fixes callstack:
	2	# < mst> sub debug { local $Log::Log4perl::caller_depth =
	3	# $Log::Log4perl::caller_depth + 3; shift->{l4p}->debug(@_) }
	4	package Log::Contextual::Log4perl;
	5
	6	1;
	7
	8	__END__
	9
	10	=head1 NAME
	11
	12	Log::Contextual::Log4perl - wrapper to fix callstack for Log::Log4perl::Logger
	13
	14	=cut
	15