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;
  12     {
  13         # silence warning for test suite
  14         no warnings 'redefine';
  15         local *Catalyst::Log::warn = sub { };
  16         $v = $c->view;
  17     }
  18
  19     $c->res->body(Scalar::Util::blessed($v));
  20 }
  21
  22 sub view_by_name : Local {
  23     my ( $self, $c ) = @_;
  24
  25     my $v = $c->view($c->req->param('view'));
  26
  27     $c->res->body(Scalar::Util::blessed($v));
  28 }
  29
  30 sub view_by_regex : Local {
  31     my ( $self, $c ) = @_;
  32
  33     my $v_name = $c->req->param('view');
  34
  35     my ($v) = $c->view(qr/$v_name/);
  36
  37     $c->res->body(Scalar::Util::blessed($v));
  38 }
  39
  40 1;