From: Arthur Axel 'fREW' Schmidt Date: Sat, 20 Feb 2010 08:11:37 +0000 (-0600) Subject: get rid of fun stuff X-Git-Tag: v0.00100~23 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5c0b6e00c77c35b445e3f6687bbd3a134d727fd2;p=p5sagit%2FLog-Contextual.git get rid of fun stuff --- diff --git a/t/lib/WarnLogger.pm b/t/lib/WarnLogger.pm deleted file mode 100644 index b64f540..0000000 --- a/t/lib/WarnLogger.pm +++ /dev/null @@ -1,12 +0,0 @@ -package WarnLogger; - -use POSIX qw(strftime); -sub new { bless {}, __PACKAGE__ } -sub debug { - my @caller = caller(1); - my $time = strftime "%y-%m-%d %H:%M:%S", localtime; - warn "[$time][$caller[0]][$caller[1]][$caller[2]][$_[1]]\n" -} -sub is_debug { 1 } - -1; diff --git a/t/play.t b/t/play.t deleted file mode 100644 index d1add5e..0000000 --- a/t/play.t +++ /dev/null @@ -1,17 +0,0 @@ -use strict; -use warnings; - -use lib 't/lib'; -use WarnLogger; -use Log::Contextual; -use Test::More qw(no_plan); - -my $logger = WarnLogger->new; - -set_logger { $logger }; -log_debug { 'set_logger' }; -log_debug { 'simple log 1' }; -log_debug { 'simple log 2' }; -sleep 1; -log_debug { 'simple log 3' }; -