lib/Catalyst/Helper/View/TT.pm

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