The00z/Logger.pm

   1 package The00z::Logger;
   2
   3 use IO::File;
   4 use Carp qw(croak);
   5
   6 our $VERSION = '0.0.1';
   7
   8 sub
   9 new
  10 {
  11   my ($pkg,$logfile) =  @_;
  12
  13   my $self = {};
  14
  15   my $filehandler = IO::File->new(">>$logfile")
  16     or croak "Cannot open $logfile\n";
  17
  18   $self->{'filehandler'} = $filehandler;
  19   $self->{'level'} = 1;
  20   $self->{'logfile'} = $logfile;
  21
  22   $self->{'filehandler'}->print("Opening "
  23       . $self->{'logfile'} . " : " . localtime(time) .  "\n");
  24
  25   bless($self,$pkg);
  26
  27   return $self;
  28 }
  29
  30 sub
  31 write
  32 {
  33   my ($self, $level) = (shift, shift);
  34
  35   if ($level <= $self->{'level'})
  36   {
  37     $self->{'filehandler'}->print($_) for @_;
  38   }
  39 }
  40
  41 sub
  42 level
  43 {
  44   my ($self, $level) = @_;
  45   $self->{'level'} = $level
  46     if @_ == 2 and $level =~ m/^\d+$/;
  47   return $self->{'level'};
  48 }
  49
  50 sub
  51 DESTROY
  52 {
  53   my $self = shift;
  54
  55   $self->write($self->{'level'} ,"Closing ". $self->{'logfile'} . " : "
  56       . localtime(time) . "\n");
  57
  58   $self->{'filehandler'}->close()
  59     or croak "Unable to write " . $self->{'logfile'} . "\n";
  60
  61   %{$self} = ();
  62 }
  63
  64 1;