From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

AESOP / HTML-FormHandler-Email-Template-0.01 / lib / HTML / FormHandler / Email / Template.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
—
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107

              
package HTML::FormHandler::Email::Template;
use Carp;
use Moose;
use Template;
extends 'HTML::FormHandler::Email';
our $VERSION = '0.01001';
augment 'build_body' => sub {
    my $self = shift;
    my $vars = $self->tt_vars;
    eval { $self->template; };
    croak 'No template specified in form class' if $@;
    my $fields = [];
    foreach (keys %$vars) {
        push @$fields, $vars->{$_};
    }
    my $args = {
        'field' => $vars,
        'fields' => $fields,
    };
    my $config = {
        ABSOLUTE => 1,
        RELATIVE => 1,        
    };
    my $tt = Template->new($config);
    my $out = '';
    $tt->process($self->template, $args, \$out) or croak $tt->error();
    return $out;
};
__PACKAGE__->meta->make_immutable;
use namespace::autoclean;
1;
=head1 NAME
HTML::FormHandler::Email::Template - Easily send templated emails from your HTML::FormHandler forms with Template Toolkit
=head1 SYNOPSIS
In your form class:
    package MyApp::Form::Contact;
    use HTML::FormHandler::Moose;
    extends 'HTML::FormHandler::Email::Template';
    # see docs for HTML::FormHandler::Email
    has 'to' => ( is => 'rw', default => 'aesop@unicornmob.com' );
    has 'from' => ( is => 'rw', default => 'noreply@unicornmob.com' );
    has 'subject' => ( is => 'rw', default => 'Get on Star Trek: TNG and face Picard the bill collector' );
    has 'template' => ( is => 'rw', default => '/path/to/template.tt2 OR filehandle OR globref' );
    <.... rest of form ....>
In your template (Template Toolkit):
    [% field.phone.name %]: [% field.phone.value %]
    [% field.address.name %]: [% field.address.value %]
    [% FOREACH i IN fields %]
    [% i.name %]: [% i.value %]
    [% END %]
In your Catalyst controller:
    my $form = MyApp::Form::Contact->new;
    return unless $form->process( params => $c->req->parameters );
=head1 ATTRIBUTES
Set this in your form class:
template - Can be absolute path or relative path (relative to the forms location), filehandle or glob ref, required.
See L<HTML::FormHandler::Email> for more optional attributes to specify such as parameters for SMTP.
=head1 SUBCLASS IT OR MAKE IT A ROLE
As with L<HTML::FormHandler::Email>, it's a good idea to create a seperate class or role with the required attributes specified (to, from, template, etc.) and then apply it in your form classes. 
=head1 SEE ALSO
L<HTML::FormHandler::Email>
L<Template>
L<HTML::FormHandler::Manual>
=head1 AUTHOR
aesop E<lt>aesop@unicornmob.comE<gt>
Big thanks to gshank and all the HTML::FormHandler contributers for writing such awesome modules.
=head1 COPYRIGHT                                                                                                                                     
This library is free software, you can redistribute it and/or modify it under
the same terms as Perl itself.
=cut