# Mojolicious::Lite
plugin 'mail';

# Mojolicious with config
$self->plugin(mail => {
  from => '[email protected]',
  type => 'text/html',
});

# in controller
$self->mail(
  to      => '[email protected]',
  subject => 'Test',
  data    => 'use Perl or die;',
);

# in controller, using render
$self->mail(to => '[email protected]', template => 'controller/action', format => 'mail');

# template: controller/action.mail.ep
% stash subject => 'Test';
use Perl or die;

# simple interface
$self->mail(
    to       => '[email protected]',
    from     => '[email protected]',
    
    reply_to => '[email protected]',
    
    cc       => '..',
    bcc      => '..',
    
    type     => 'text/plain',

    subject  => 'Test',
    data     => 'use Perl or die;',
);

# interface as MIME::Lite
$self->mail(
    # test mode
    test   => 1,
    
    # as MIME::Lite->new( ... )
    mail   => {
      To      => '[email protected]',
      Subject => 'Test',
      Data    => 'use Perl or die;',
    },

    attach => [
      # as MIME::Lite->attach( .. )
      { ... },
      ...
    },

    headers => [
      # as MIME::Lite->add( .. )
      { ... },
      ...
    },

    attr => [
      # as MIME::Lite->attr( .. )
      { ... },
      ...
    },
);

my $data = $self->render_mail('user/signup');

# or use stash params
my $data = $self->render_mail(template => 'user/signup', user => $user);

$plugin->conf;

my $conf = {
  from     => '[email protected],
  encoding => 'base64',
  type     => 'text/html',
  how      => 'sendmail',
  howargs  => [ '/usr/sbin/sendmail -t' ],
};

# in Mojolicious app
$self->plugin(mail => $conf);

# in Mojolicious::Lite app
plugin mail => $conf;

$plugin->register($app, $conf);

$plugin->build( mail => { ... }, ... );

# all mail don't send mail
BEGIN { $ENV{MOJO_MAIL_TEST} = 1 };

# or only once
$self->mail(
  test => 1,
  to   => '...',
);

get '/simple' => sub {
  my $self = shift;
  
  $self->mail(
    to      => '[email protected]',
    type    => 'text/plain',
    subject => 'Тест письмо',
    data    => 'Привет!',
  );
};

get '/simple' => sub {
  my $self = shift;
  
  $self->mail(
    mail => {
      To      => '[email protected]',
      Subject => 'Тест письмо',
      Data    => "<p>Привет!</p>",
    },
  );
};

get '/simple2' => sub {
  my $self = shift;
  
  my $mail = $self->mail(
    test => 1,
    mail => {
      To      => '"Анатолий Шарифулин" [email protected]',
      Cc      => '"Анатолий Шарифулин" <[email protected]>, Anatoly Sharifulin [email protected]',
      Bcc     => '[email protected]',
      Subject => 'Тест письмо',
      Type    => 'text/plain',
      Data    => "<p>Привет!</p>",
    },
  );
  
  warn $mail;
};

get '/attach' => sub {
  my $self = shift;
  
  my $mail = $self->mail(
    charset  => 'windows-1251',
    mimeword => 0,

    mail => {
      To      => '[email protected]',
      Subject => 'Test attach',
      Type    => 'multipart/mixed'
    },
    attach => [
      {
        Data => 'Any data',
      },
      {
        Type        => 'BINARY',
        Filename    => 'crash.data',
        Disposition => 'attachment',
        Data        => 'binary data binary data binary data binary data binary data',
      },
    ],
    headers => [ { 'X-My-Header' => 'Mojolicious' } ],
  );
};

get '/multi' => sub {
  my $self = shift;
  
  $self->mail(
    mail => {
      To      => '[email protected]',
      Subject => 'Мульти',
      Type    => 'multipart/mixed'
    },

    attach => [
      {
        Type     => 'TEXT',
        Encoding => '7bit',
        Data     => "Just a quick note to say hi!"
      },
      {
        Type     => 'image/gif',
        Path     => $0
      },
      {
        Type     => 'x-gzip',
        Path     => "gzip < $0 |",
        ReadNow  => 1,
        Filename => "somefile.zip"
      },
    ],
  );
};

get '/render_simple' => sub {
  my $self = shift;
  my $mail = $self->mail(to => '[email protected]', reply_to => '[email protected]');

  $self->render(ok => 1, mail => $mail);
} => 'render';

get '/render' => sub {
  my $self = shift;

  my $data = $self->render_mail('render');
  $self->mail(
    mail => {
      To      => '[email protected]',
      Subject => $self->stash('subject'),
      Data    => $data,
    },
  );
} => 'render';

__DATA__

@@ render.html.ep
<p>Hello render!</p>

@@ render.mail.ep
% stash 'subject' => 'Привет render';

<p>Привет mail render!</p>