ucw/perl/Log.pm

   1 #
   2 #       Perl module for Logging
   3 #
   4 #       (c) 2007 Pavel Charvat <pchar@ucw.cz>
   5 #
   6
   7 package UCW::Log;
   8
   9 use lib 'lib/perl5';
  10 use strict;
  11 use warnings;
  12 use POSIX;
  13 use Exporter;
  14
  15 our $version = 1.0;
  16 our @ISA = qw(Exporter);
  17 our @EXPORT = ();
  18 our %EXPORT_TAGS = ( all => [qw(&Log &Die)]);
  19 our @EXPORT_OK = (@{$EXPORT_TAGS{'all'}});
  20
  21 my $Prog = (reverse split(/\//, $0))[0];
  22
  23 sub Log {
  24   my $level = shift;
  25   my $text = join(' ', @_);
  26   print STDERR $level, strftime(" %Y-%m-%d %H:%M:%S ", localtime()), "[$Prog] ", $text, "\n";
  27 }
  28
  29 sub Die {
  30   Log('!', @_);
  31   exit 1;
  32 }
  33
  34 1;