perl/Log/Agent.pm

   1 #
   2 # Dummy Log Agent
   3 #
   4 # This is just for the benefit of Storable on 5.8.0
   5 #
   6 # Copyright (c) Dirk Koopman
   7 #
   8 # $Id$
   9 #
  10
  11 package Log::Agent;
  12
  13 use DXDebug;
  14
  15 $VERSION = 0.3;
  16 @ISA = qw(Exporter);
  17 @EXPORT = qw(logcroak logcarp);
  18
  19 sub logcroak
  20 {
  21         DXDebug::croak(@_);
  22 }
  23
  24 sub logcarp
  25 {
  26         DXDebug::carp(@_);
  27 }
  28 1;