use Email::MIME::Creator;
use Carp qw/croak/;
-our $VERSION = '0.06';
+our $VERSION = '0.07';
=head1 NAME
To => 'me@localhost',
Subject => 'A TT Email',
],
- body => $c->view('TT')->render($c, 'email.tt', {
- additional_template_paths => [ $c->config->{root} . '/email_templates'],
- }
- ),
+ body => $c->subreq( '/render_email' ),
);
To send a multipart message, include a C<parts> argument containing an
disposition => 'attachment',
charset => 'US-ASCII',
},
- body => $c->view('TT')->render($c, 'email.tt', {
- additional_template_paths => [ $c->config->{root} . '/email_templates'],
- names => [qw/foo bar baz/]
- }
- ),
+ body => $c->subreq( '/render_email' ),
),
);
sub email {
my $c = shift;
my $email = $_[1] ? {@_} : $_[0];
- croak "Can't send mail without recipient"
- unless length($email->{To});
$email = Email::MIME->create(%$email);
my $args = $c->config->{email} || [];
my @args = @{$args};
=head1 USING WITH A VIEW
A common practice is to handle emails using the same template language used
-for HTML pages. This is best accomplished by capturing the output from the
-template. For TT this is done using the C<render> method as described in
-L<Catalyst::View:TT/CAPTURING TEMPLATE OUTPUT>.
+for HTML pages. This can be accomplished by pairing this plugin with
+L<Catalyst::Plugin::SubRequest>.
Here is a short example of rendering an email from a Template Toolkit source
-file. For more information on render (or how to do this with a view other
-than TT, consult the docs for your view)
+file. The call to $c->subreq makes an internal call to the render_email
+method just like an external call from a browser. The request will pass
+through the end method to be processed by your View class.
sub send_email : Local {
my ( $self, $c ) = @_;
To => 'me@localhost',
Subject => 'A TT Email',
],
- body => $c->view('TT')->render('email.tt',
- { additional_template_paths => [ $c->config->{root} . '/email_templates'],
- names => [ qw/andyg sri mst ash/ ],
- } ),
-
+ body => $c->subreq( '/render_email' ),
);
# redirect or display a message
}
-
+
+ sub render_email : Local {
+ my ( $self, $c ) = @_;
+
+ $c->stash(
+ names => [ qw/andyg sri mst/ ],
+ template => 'email.tt',
+ );
+ }
+
And the template:
[%- FOREACH name IN names -%]
Hi, andyg!
Hi, sri!
Hi, mst!
- Hi, ash!
--
Regards,
=head1 SEE ALSO
-L<Catalyst>, L<Catalyst::View::TT>, L<Email::Send>, L<Email::MIME::Creator>
+L<Catalyst>, L<Catalyst::Plugin::SubRequest>, L<Email::Send>,
+L<Email::MIME::Creator>
=head1 AUTHOR