#!/usr/bin/env perl
use utf8;
use Mojolicious::Lite;
plugin 'mail';
get '/' => sub {
my $self = shift;
$self->mail(
to => 'sharifulin@gmail.com',
reply_to => 'reply_to+sharifulin@gmail.com',
subject => 'Тестовое сообщение от Mojolicious::Plugin::Mail',
data => "Привет, это тестовое сообщение от Mojolicious::Plugin::Mail.\n\nРаботает!",
);
$self->render_text('OK');
};
get '/render' => sub {
shift->mail(to => 'sharifulin@gmail.com', template => 'render');
} => 'render';
# app->log->level('error');
app->start;
__DATA__
@@ render.html.ep
OK
@@ render.mail.ep
% stash subject => 'Тестовое сообщение от Mojolicious::Plugin::Mail';
Привет, это тестовое сообщение от Mojolicious::Plugin::Mail.
Тоже работает!