diff options
| author | Peter Palfrader <peter@palfrader.org> | 2004-04-26 14:50:18 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2004-04-26 14:50:18 +0000 |
| commit | a610dc43cdd756478f65f0c4889eb3dea3706153 (patch) | |
| tree | 8ea26272930d090e9322160a42ee28e65bcfa069 /Echolot/Log.pm | |
| parent | d1308fa6352866f1664dba895fd3298f8eb8eebf (diff) | |
There's a TRACE loglevel now, which is even more noisy than DEBUG. and update TODO
Diffstat (limited to 'Echolot/Log.pm')
| -rw-r--r-- | Echolot/Log.pm | 4 |
1 files changed, 4 insertions, 0 deletions
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]); }; |