CatalystでEVAL_PERL

 package Hoge::V::TT;

 use strict;
 use base 'Catalyst::View::TT';

 Hoge::V::TT->config(
   {
     EVAL_PERL => 1,
   }
 );

 ●スクリプトの修正
 # D:\usr\share\bin\catalyst.pl
 =>ReadOnlyを外してから修正

   #!C:\Perl\bin\perl.exe -w
    ↓
   #!d:\usr\share\bin\perl.exe -w

 ●ディレクトリ作成
 |>> d:/usr/share/bin/catalist.pl Hoge
 =>PATHの順序の関係から絶対指定でcatalist.plを起動

 ●ビュー準備
 |>> cd Hoge
 |Hoge>> d:/usr/share/bin/perl ./script/hoge_create.pl view TT TT
 =>PATHの順序の関係から絶対指定でperl.exeを起動(以下同じ)

 ●Hoge.pmを修正する
 # Hoge/lib/Hoge.pm
 sub default : Private {
   my( $self, $c ) = @_;
     $c->res->output(
       q{<a href="page2/">次のページ</a>},
   );
 }

 # page2を用意する
 sub page2 : Global {
   my( $self, $c ) = @_;
 
   $c->stash->{text}      = q{Page2};
   $c->stash->{template}  = q{page2.tmpl};
   $c->forward( q{Hoge::V::TT} );
 }

 ●EVAL_PERLのセット
 # Hoge/lib/Hoge/V/TT.pm
 Hoge::V::TT->config(
   {
     EVAL_PERL => 1,
     # キャッシュの準備
     DELIMITER => q{;},
     COMPILE_EXT => q{.ttc},
     COMPILE_DIR => q{./}, # -> Hoge/D/
   },
 );

 ●テンプレートの用意
 # Hoge/root/page2.tmpl
 <h1>[% text %]</h1>

 [% PERL %]
 my $text = $stash->{text} || q{};

 for my $i( 0..10 ) {
   print qq{<p>$text</p>};
 }
 [% END %]

=>どうせキャッシュ化されたら一緒だと思うから慣れ親しんだPerlで書いてる(笑)

 ●デバッグサーバ起動
 |Hoge>> d:/usr/share/bin/perl ./script/hellocatalyst_server.pl
 =>デバッグ用のサーバは「Ctrl + C」で中断できる

 ●ブラウザでアクセス
 =>「http://localhost:3000/」にアクセス
 =>最初のページから「page2」に移動し、テキストが表示されればOK