From a610dc43cdd756478f65f0c4889eb3dea3706153 Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Mon, 26 Apr 2004 14:50:18 +0000 Subject: There's a TRACE loglevel now, which is even more noisy than DEBUG. and update TODO --- Echolot/Log.pm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'Echolot/Log.pm') diff --git a/Echolot/Log.pm b/Echolot/Log.pm index e156a3a..94838fd 100644 --- a/Echolot/Log.pm +++ b/Echolot/Log.pm @@ -19,6 +19,7 @@ use Carp qw{}; #use Time::HiRes qw( gettimeofday ); my %LOGLEVELS = qw{ + trace 8 debug 7 info 6 notice 5 @@ -88,6 +89,9 @@ sub log_message($$) { $LOGFH->flush(); }; +sub trace($) { + log_message('trace', $_[0]); +}; sub debug($) { log_message('debug', $_[0]); }; -- cgit v1.2.3