Debbugs/DBase/Log/Message.pm

   1 # TODO: Implement 'stale' checks, so that there is no need to explicitly
   2 #       write out a record, before closing.
   3
   4 package Debbugs::DBase::Log::Message;
   5
   6 use strict;
   7
   8 BEGIN {
   9         Debbugs::DBase::Log::Register("\7", "Message", "Debbugs::DBase::Log::Message");
  10 }
  11
  12
  13 sub new
  14 {
  15     my $self  = {};
  16     $self->{TYPE}       = "Message";
  17     $self->{MSG}        = shift;
  18     bless ($self);
  19     return $self;
  20 }
  21
  22 END { }       # module clean-up code here (global destructor)
  23
  24
  25 1;