From: Arthur Axel 'fREW' Schmidt <frioux@gmail.com>
Date: Fri, 11 Jan 2013 01:13:57 +0000 (-0600)
Subject: remove no longer needed code
X-Git-Tag: v0.005000_01~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=863b4fea615318b2ab056e1cd11f774332c3d85c;p=p5sagit%2FLog-Contextual.git

remove no longer needed code
---

diff --git a/lib/Log/Contextual.pm b/lib/Log/Contextual.pm
index 7d26b22..e2fa68f 100644
--- a/lib/Log/Contextual.pm
+++ b/lib/Log/Contextual.pm
@@ -12,10 +12,6 @@ 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;
@@ -26,10 +22,7 @@ eval {
 # export anything but the levels selected
 sub ____ {}
 
-exports ('____',
-   @dlog, @log,
-   qw( set_logger with_logger )
-);
+exports (qw(____ set_logger with_logger ));
 
 export_tag dlog => ('____');
 export_tag log  => ('____');