/usr/share/perl5/Mail/Message/Head/Subset.pm is in libmail-box-perl 2.099-1.
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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 | # Copyrights 2001-2011 by Mark Overmeer.
# For other contributors see ChangeLog.
# See the manual pages for details on the licensing terms.
# Pod stripped from pm file by OODoc 2.00.
use strict;
package Mail::Message::Head::Subset;
use vars '$VERSION';
$VERSION = '2.099';
use base 'Mail::Message::Head';
use Object::Realize::Later
becomes => 'Mail::Message::Head::Complete',
realize => 'load',
believe_caller => 1;
use Date::Parse;
sub count($)
{ my ($self, $name) = @_;
my @values = $self->get($name);
return $self->load->count($name)
unless @values;
scalar @values;
}
#-------------------------------------------
sub get($;$)
{ my $self = shift;
if(wantarray)
{ my @values = $self->SUPER::get(@_);
return @values if @values;
}
else
{ my $value = $self->SUPER::get(@_);
return $value if defined $value;
}
$self->load->get(@_);
}
#-------------------------------------------
sub guessBodySize()
{ my $self = shift;
my $cl = $self->SUPER::get('Content-Length');
return $1 if defined $cl && $cl =~ m/(\d+)/;
my $lines = $self->SUPER::get('Lines'); # 40 chars per lines
return $1*40 if defined $lines && $lines =~ m/(\d+)/;
undef;
}
#-------------------------------------------
# Be careful not to trigger loading: this is not the thoroughness
# we want from this method.
sub guessTimestamp()
{ my $self = shift;
return $self->{MMHS_timestamp} if $self->{MMHS_timestamp};
my $stamp;
if(my $date = $self->SUPER::get('date'))
{ $stamp = str2time($date, 'GMT');
}
unless($stamp)
{ foreach ($self->SUPER::get('received'))
{ $stamp = str2time($_, 'GMT');
last if $stamp;
}
}
$self->{MMHS_timestamp} = $stamp;
}
#-------------------------------------------
sub load() { $_[0] = $_[0]->message->loadHead }
#------------------------------------------
1;
|