File: Mail.pm

package info (click to toggle)
debbugs 2.4.1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, lenny, sarge, squeeze, wheezy
  • size: 620 kB
  • ctags: 290
  • sloc: perl: 6,067; sh: 176; makefile: 63
file content (30 lines) | stat: -rw-r--r-- 653 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
# TODO: Implement 'stale' checks, so that there is no need to explicitly
#	write out a record, before closing.

package Debbugs::DBase::Log::Mail;
use Debbugs::DBase::LogEntry;
use Exporter;

use strict;
BEGIN {
	use vars	qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
	@ISA = ( "Debbugs::DBase::LogEntry" );
	Debbugs::DBase::Log::Register("\2", "Mail", "Debbugs::DBase::Log::Mail");
}


sub new
{
    my $proto = shift;
    my $class = ref($proto) || $proto;
    my $self  = {};
    $self->{TYPE}	= "Html";
    $self->{MSG}	= shift;
    bless ($self, $class);
    return $self;
}

END { }       # module clean-up code here (global destructor)


1;