0.02 patch thanks to dwc.
[catagits/Catalyst-View-Email.git] / t / lib / TestApp / Controller / Root.pm
CommitLineData
82300460 1package # Hide from PAUSE
2 TestApp::Controller::Root;
3
4use base qw(Catalyst::Controller);
5
6sub default : Private {
7 my ( $self, $c ) = @_;
8
9 $c->res->body(qq{Nothing Here});
10}
11
12sub email : Global('email') {
13 my ($self, $c, @args) = @_;
14
15 my $time = $c->req->params->{time} || time;
16
17 $c->stash->{email} = {
fd0033bc 18 to => 'test-email@example.com',
19 from => 'no-reply@example.com',
82300460 20 subject => 'Email Test',
21 body => "Email Sent at: $time"
22 };
23
24 $c->forward('TestApp::View::Email');
25
26 if ( scalar( @{ $c->error } ) ) {
27 $c->res->status(500);
28 $c->res->body('Email Failed');
29 } else {
30 $c->res->body('Plain Email Ok');
31 }
32}
33
25650747 34sub email_app_config : Global('email_app_config') {
35 my ($self, $c, @args) = @_;
36
37 my $time = $c->req->params->{time} || time;
38
39 $c->stash->{email} = {
40 to => 'test-email@example.com',
41 from => 'no-reply@example.com',
42 subject => 'Email Test',
43 body => "Email Sent at: $time"
44 };
45
46 $c->forward('TestApp::View::Email::AppConfig');
47
48 if ( scalar( @{ $c->error } ) ) {
49 $c->res->status(500);
50 $c->res->body('Email Failed');
51 } else {
52 $c->res->body('Plain Email Ok');
53 }
54}
55
82300460 56sub template_email : Global('template_email') {
57 my ($self, $c, @args) = @_;
58
59 $c->stash->{time} = $c->req->params->{time} || time;
60
61 $c->stash->{email} = {
fd0033bc 62 to => 'test-email@example.com',
63 from => 'no-reply@example.com',
82300460 64 subject => 'Just a test',
65 content_type => 'multipart/alternative',
66 templates => [
67 qw{text_plain/test.tt},
68 qw{text_html/test.tt}
69 ]
70 };
71
72 $c->forward('TestApp::View::Email::Template');
73
74 if ( scalar( @{ $c->error } ) ) {
75 $c->res->status(500);
76 $c->res->body('Template Email Failed');
77 } else {
78 $c->res->body('Template Email Ok');
79 }
80}
81
821;