/usr/share/perl5/Mail/Message/Construct.pm is in libmail-box-perl 2.117-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 | # Copyrights 2001-2014 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.01.
use strict;
package Mail::Message;
use vars '$VERSION';
$VERSION = '2.117';
use Mail::Message::Head::Complete;
use Mail::Message::Body::Lines;
use Mail::Message::Body::Multipart;
use Mail::Address;
use Carp;
use Scalar::Util 'blessed';
use IO::Lines;
our %locations =
(
bounce => 'Bounce'
, build => 'Build'
, buildFromBody => 'Build'
, forward => 'Forward'
, forwardNo => 'Forward'
, forwardInline => 'Forward'
, forwardAttach => 'Forward'
, forwardEncapsulate => 'Forward'
, forwardSubject => 'Forward'
, forwardPrelude => 'Forward'
, forwardPostlude => 'Forward'
, read => 'Read'
, rebuild => 'Rebuild'
, reply => 'Reply'
, replySubject => 'Reply'
, replyPrelude => 'Reply'
, string => 'Text'
, lines => 'Text'
, file => 'Text'
, printStructure => 'Text'
);
sub AUTOLOAD(@)
{ my $self = shift;
our $AUTOLOAD;
(my $call = $AUTOLOAD) =~ s/.*\:\://g;
if(my $mod = $locations{$call})
{ eval "require Mail::Message::Construct::$mod";
die $@ if $@;
return $self->$call(@_);
}
our @ISA; # produce error via Mail::Reporter
$call = "${ISA[0]}::$call";
$self->$call(@_);
}
1;
|