t/lib/TestAppOneView/Controller/Root.pm

   1 package TestAppOneView::Controller::Root;
   2
   3 use base 'Catalyst::Controller';
   4 use Scalar::Util ();
   5
   6 __PACKAGE__->config->{namespace} = '';
   7
   8 sub view_no_args : Local {
   9     my ( $self, $c ) = @_;
  10
  11     my $v = $c->view;
  12
  13     $c->res->body(Scalar::Util::blessed($v));
  14 }
  15
  16 sub view_by_name : Local {
  17     my ( $self, $c ) = @_;
  18
  19     my $v = $c->view($c->req->param('view'));
  20
  21     $c->res->body(Scalar::Util::blessed($v));
  22 }
  23
  24 sub view_by_regex : Local {
  25     my ( $self, $c ) = @_;
  26
  27     my $v_name = $c->req->param('view');
  28
  29     my ($v) = $c->view(qr/$v_name/);
  30
  31     $c->res->body(Scalar::Util::blessed($v));
  32 }
  33
  34 1;