Debbugs/DBase/Log/Mail.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::Mail;
   5 use Debbugs::DBase::LogEntry;
   6 use Exporter;
   7
   8 use strict;
   9 BEGIN {
  10         use vars        qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
  11         @ISA = ( "Debbugs::DBase::LogEntry" );
  12         Debbugs::DBase::Log::Register("\2", "Mail", "Debbugs::DBase::Log::Mail");
  13 }
  14
  15
  16 sub new
  17 {
  18     my $proto = shift;
  19     my $class = ref($proto) || $proto;
  20     my $self  = {};
  21     $self->{TYPE}       = "Html";
  22     $self->{MSG}        = shift;
  23     bless ($self, $class);
  24     return $self;
  25 }
  26
  27 END { }       # module clean-up code here (global destructor)
  28
  29
  30 1;