$VERSION
=
'2.093'
;
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
;
$call
=
"${ISA[0]}::$call"
;
$self
->
$call
(
@_
);
}
1;