lib/Catalyst/Helper/View/TT.pm

   1 package Catalyst::Helper::View::TT;
   2
   3 use strict;
   4
   5 =head1 NAME
   6
   7 Catalyst::Helper::View::TT - Helper for TT Views
   8
   9 =head1 SYNOPSIS
  10
  11     script/create.pl view TT TT
  12
  13 =head1 DESCRIPTION
  14
  15 Helper for TT 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::Manual>, L<Catalyst::Test>, L<Catalyst::Request>,
  32 L<Catalyst::Response>, L<Catalyst::Helper>
  33
  34 =head1 AUTHOR
  35
  36 Sebastian Riedel, C<sri@oook.de>
  37 Marcus Ramberg, C<mramberg@cpan.org>
  38
  39 =head1 LICENSE
  40
  41 This library is free software . You can redistribute it and/or modify
  42 it under the same terms as perl itself.
  43
  44 =cut
  45
  46 1;
  47
  48 __DATA__
  49
  50 __compclass__
  51 package [% class %];
  52
  53 use strict;
  54 use warnings;
  55
  56 use base 'Catalyst::View::TT';
  57
  58 __PACKAGE__->config(
  59     TEMPLATE_EXTENSION => '.tt',
  60     render_die => 1,
  61 );
  62
  63 =head1 NAME
  64
  65 [% class %] - TT View for [% app %]
  66
  67 =head1 DESCRIPTION
  68
  69 TT View for [% app %].
  70
  71 =head1 SEE ALSO
  72
  73 L<[% app %]>
  74
  75 =head1 AUTHOR
  76
  77 [% author %]
  78
  79 =head1 LICENSE
  80
  81 This library is free software. You can redistribute it and/or modify
  82 it under the same terms as Perl itself.
  83
  84 =cut
  85
  86 1;