t/lib/TestApp/Template/Any.pm

   1 use strict;\r
   2 use warnings;\r
   3 \r
   4 package TestApp::Template::Any;\r
   5 \r
   6 use base 'Template';\r
   7 use FindBin;\r
   8 use Path::Class;\r
   9 \r
  10 sub new {\r
  11     my $class = shift;\r
  12 \r
  13     my $params = defined($_[0]) && ref($_[0]) eq 'HASH' ? shift : {@_};\r
  14 \r
  15     my $includepath = dir($FindBin::Bin, '/lib/TestApp/root/any_include_path');\r
  16     $params->{INCLUDE_PATH} = $includepath;\r
  17 \r
  18     return $class->SUPER::new( $params );\r
  19 }\r
  20 \r
  21 1;\r