From: Arthur Axel 'fREW' Schmidt Date: Wed, 3 Mar 2010 06:17:59 +0000 (-0600) Subject: release 0.00200 X-Git-Tag: v0.00200^0 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8a63d9d221650fd38dd3a9991da9f892b537d17b;p=p5sagit%2FLog-Contextual.git release 0.00200 --- diff --git a/Changes b/Changes index 8a106bf..93da611 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,7 @@ ChangeLog for Log-Contextual +0.00200 2010-03-03 + - add example for Log::Dispatchouli since it works nicely now - make Log::Log4perl work out of the box - Added WarnLogger for libraries - Warn if set_logger is called more than once diff --git a/lib/Log/Contextual.pm b/lib/Log/Contextual.pm index 6224f63..8ac94b1 100644 --- a/lib/Log/Contextual.pm +++ b/lib/Log/Contextual.pm @@ -1,11 +1,9 @@ -# add example for Log::Dispatchouli - package Log::Contextual; use strict; use warnings; -our $VERSION = '0.00101'; +our $VERSION = '0.00200'; require Exporter; use Data::Dumper::Concise; diff --git a/t/simplelogger.t b/t/simplelogger.t index 2cfcaaa..968ff83 100644 --- a/t/simplelogger.t +++ b/t/simplelogger.t @@ -34,7 +34,10 @@ my $l2 = Log::Contextual::SimpleLogger->new({ levels => [qw{trace debug info warn error fatal}], coderef => sub { $response = $_[0] }, }); -set_logger($l2); +{ + local $SIG{__WARN__} = sub {}; # do this just to hide warning for tests + set_logger($l2); +} log_trace { 'trace' }; is($response, "[trace] trace\n", 'trace renders correctly'); log_debug { 'debug' };