Catalystアプリケーションを携帯対応にしてみる - 森のクマさんがプログラムし始めたViewはTTでやる。 Viewだけ機種毎に切り替える。 MyApp.pm use Catalyst qw/ MobileAgent /; TT.pm # processをオーバーライド sub process { my ( $self, $c ) = @_; # 機種を判断 if($c->req->mobile_agent->is_docomo){ # ドコモ $self->{include_path} = (@{$c->config->{View::TT}->{INCLUDE_PATH}}, $c->path_to('root/docomo_tmpl')); }elsif($c->request->mobile_agent->is_vodafone){ # vodafone $self->{include_path} = (@{$c->config->{View::TT}->{INCL
