lib/Catalyst/Helper/View/Email.pm

   1 package Catalyst::Helper::View::Email;
   2
   3 use strict;
   4
   5 =head1 NAME
   6
   7 Catalyst::Helper::View::Email - Helper for Email Views
   8
   9 =head1 SYNOPSIS
  10
  11     $ script/myapp_create.pl view Email Email
  12
  13 =head1 DESCRIPTION
  14
  15 Helper for Email Views.
  16
  17 =head2 METHODS
  18
  19 =head3 mk_compclass
  20
  21 =cut
  22
  23 sub mk_compclass {
  24     my ( $self, $helper ) = @_;
  25     my $file = $helper->{file};
  26     $helper->render_file( 'compclass', $file );
  27 }
  28
  29 =head1 SEE ALSO
  30
  31 L<Catalyst::View::Email>
  32
  33 L<Catalyst::Manual>, L<Catalyst::Test>, L<Catalyst::Request>,
  34 L<Catalyst::Response>, L<Catalyst::Helper>
  35
  36 =head1 AUTHOR
  37
  38 J. Shirley C<jshirley@gmail.com>
  39
  40 =head1 LICENSE
  41
  42 This library is free software . You can redistribute it and/or modify
  43 it under the same terms as perl itself.
  44
  45 =cut
  46
  47 1;
  48
  49 __DATA__
  50
  51 __compclass__
  52 package [% class %];
  53
  54 use strict;
  55 use base 'Catalyst::View::Email';
  56
  57 __PACKAGE__->config(
  58     stash_key => 'email'
  59 );
  60
  61 =head1 NAME
  62
  63 [% class %] - Email View for [% app %]
  64
  65 =head1 DESCRIPTION
  66
  67 View for sending email from [% app %].
  68
  69 =head1 AUTHOR
  70
  71 [% author %]
  72
  73 =head1 SEE ALSO
  74
  75 L<[% app %]>
  76
  77 =head1 LICENSE
  78
  79 This library is free software, you can redistribute it and/or modify
  80 it under the same terms as Perl itself.
  81
  82 =cut
  83
  84 1;