Templates in Methoden verwenden

Templates vorteilhaft unterhalb __DATA__ Token notieren, die Factory machts möglich

Das ​Beispiel ​untenstehend ​zeigt ​eine ​typische ​Anwendung:



use ​strict;
use ​warnings;
require ​SendMail;

sub ​mail_passwordreset{
 ​ ​ ​ ​my ​$self ​= ​shift;
 ​ ​ ​ ​my ​%in ​= ​(
 ​ ​ ​ ​ ​ ​ ​ ​from ​ ​ ​ ​ ​ ​=> ​$self->{BIN}{default}{email},
 ​ ​ ​ ​ ​ ​ ​ ​to ​ ​ ​ ​ ​ ​ ​ ​=> ​'',
 ​ ​ ​ ​ ​ ​ ​ ​subject ​ ​ ​=> ​'Ihr ​Passwort ​wurde ​zurückgesetzt',
 ​ ​ ​ ​ ​ ​ ​ ​mesg ​ ​ ​ ​ ​ ​=> ​'',
 ​ ​ ​ ​ ​ ​ ​ ​absperson ​=> ​$ENV{SERVER_NAME},
 ​ ​ ​ ​ ​ ​ ​ ​link ​ ​ ​ ​ ​ ​=> ​'',
 ​ ​ ​ ​ ​ ​ ​ ​password ​ ​=> ​'',
 ​ ​ ​ ​@_);

 ​ ​ ​ ​my ​$body ​= ​do{local ​$/ ​= ​undef, ​<DATA>};
 ​ ​ ​ ​
 ​ ​ ​ ​$in{mesg} ​= ​XR::xr($body, ​\%in);
 ​ ​ ​ ​
 ​ ​ ​ ​my ​$m ​= ​SendMail->new;
 ​ ​ ​ ​my ​$datei ​= ​$m->sendmail(%in);
}


1;
__DATA__
Sehr ​geehrter ​Benutzer,

%subject%. ​ ​ ​ ​ ​ ​ ​ ​ ​ ​ ​ ​ ​ ​ ​ ​ ​ ​ ​ ​

Passwort: ​%password%
Benutzername: ​%to%

Bitte ​loggen ​Sie ​sich ​da ​ein: ​%link%

Mit ​freundlichen ​Grüßen,
%absperson%


Anbieter: nmq​rstx-18­@yahoo.de, die Seite verwendet funktionsbedingt einen Session-Cookie und ist Bestandteil meines nach modernen Aspekten in Perl entwickelten Frameworks.