email.pm 529 B

123456789101112131415161718192021222324
  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 Trog::Renderer::html;
  7. =head1 Trog::Renderer::email
  8. Render emails with both HTML and email parts, and inline all CSS/JS/Images.
  9. =cut
  10. # TODO inlining
  11. sub render (%options) {
  12. my $text = Trog::Renderer::Base::render( %options, contenttype => 'text/plain' );
  13. my $html = Trog::Renderer::html::render( %options, contenttype => 'text/html' );
  14. return { text => $text, html => $html };
  15. }
  16. 1;