From: Tyler Riddle <t.riddle@shadowcat.co.uk>
Date: Wed, 13 Feb 2013 04:05:08 +0000 (-0800)
Subject: Restore export behavior of 0.004300 for CPAN bug #83267
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=919290f543a3f53d70470cf5036681994f5362c6;p=p5sagit%2FLog-Contextual.git

Restore export behavior of 0.004300 for CPAN bug #83267
---

diff --git a/lib/Log/Contextual.pm b/lib/Log/Contextual.pm
index 4df4f46..a8fcd8d 100644
--- a/lib/Log/Contextual.pm
+++ b/lib/Log/Contextual.pm
@@ -13,6 +13,10 @@ use Exporter::Declare::Export::Generator;
 use Data::Dumper::Concise;
 use Scalar::Util 'blessed';
 
+my @dlog = ((map "Dlog_$_", @levels), (map "DlogS_$_", @levels));
+
+my @log = ((map "log_$_", @levels), (map "logS_$_", @levels));
+
 eval {
    require Log::Log4perl;
    die if $Log::Log4perl::VERSION < 1.29;
@@ -23,7 +27,10 @@ eval {
 # export anything but the levels selected
 sub ____ { }
 
-exports(qw(____ set_logger with_logger ));
+exports ('____',
+   @dlog, @log,
+   qw( set_logger with_logger )
+);
 
 export_tag dlog => ('____');
 export_tag log  => ('____');