email.pm 565 B

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