/usr/share/perl5/Debbugs/DBase/Log/Mail.pm is in libdebbugs-perl 2.6.0.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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;
|