lib/Fumo/View/TT.pm

   1 package Fumo::View::TT;
   2
   3 use strict;
   4 use base 'Catalyst::View::TT';
   5
   6 __PACKAGE__->config({
   7     CATALYST_VAR => 'Catalyst',
   8     INCLUDE_PATH => [
   9         Fumo->path_to( 'root', 'src' ),
  10         Fumo->path_to( 'root', 'lib' )
  11     ],
  12     WRAPPER      => 'global.tt2',
  13     ERROR        => 'error.tt2',
  14     TIMER        => 0,
  15     DEBUG        => undef
  16 });
  17
  18 sub new {
  19     my $class = shift;
  20     my $self = $class->NEXT::new(@_);
  21
  22     $self->{template}->context->define_filter(
  23         firstchar => sub {
  24             my ($expr) = @_;
  25
  26             return substr($expr, 0, 1);
  27         }
  28     );
  29
  30     return $self;
  31 }
  32
  33 =head1 NAME
  34
  35 Fumo::View::TT - Catalyst TTSite View
  36
  37 =head1 SYNOPSIS
  38
  39 See L<Fumo>
  40
  41 =head1 DESCRIPTION
  42
  43 Catalyst TTSite View.
  44
  45 =head1 AUTHOR
  46
  47 Philip Jackson,,,
  48
  49 =head1 LICENSE
  50
  51 This library is free software, you can redistribute it and/or modify
  52 it under the same terms as Perl itself.
  53
  54 =cut
  55
  56 1;
  57