email.pm 534 B

12345678910111213141516171819202122232425
  1. package Trog::Renderer::email;
  2. use 5.040;
  3. use re '/aa';
  4. use parent qw{Trog::Renderer::Base};
  5. use Text::Xslate;
  6. use Trog::Themes;
  7. use Trog::Renderer::html;
  8. =head1 Trog::Renderer::email
  9. Render emails with both HTML and email parts, and inline all CSS/JS/Images.
  10. =cut
  11. # TODO inlining
  12. sub render (%options) {
  13. my $text = Trog::Renderer::Base::render( %options, contenttype => 'text/plain' );
  14. my $html = Trog::Renderer::html::render( %options, contenttype => 'text/html' );
  15. return { text => $text, html => $html };
  16. }
  17. 1;