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     bin/create 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     my $class = $helper->{class};
  27     $helper->mk_file( $file, <<"EOF");
  28 package $class;
  29
  30 use strict;
  31 use base 'Catalyst::View::TT';
  32
  33 =head1 NAME
  34
  35 $class - TT View Component
  36
  37 =head1 SYNOPSIS
  38
  39     Very simple to use
  40
  41 =head1 DESCRIPTION
  42
  43 Very nice component.
  44
  45 =head1 AUTHOR
  46
  47 Clever guy
  48
  49 =head1 LICENSE
  50
  51 This library is free software . You can redistribute it and/or modify it under
  52 the same terms as perl itself.
  53
  54 =cut
  55
  56 1;
  57 EOF
  58 }
  59
  60 =head1 SEE ALSO
  61
  62 L<Catalyst::Manual>, L<Catalyst::Test>, L<Catalyst::Request>,
  63 L<Catalyst::Response>, L<Catalyst::Helper>
  64
  65 =head1 AUTHOR
  66
  67 Sebastian Riedel, C<sri@oook.de>
  68
  69 =head1 LICENSE
  70
  71 This library is free software . You can redistribute it and/or modify it under
  72 the same terms as perl itself.
  73
  74 =cut
  75
  76 1;