t/lib/TestAppMVCWarnings/Controller/Root.pm

   1 package TestAppMVCWarnings::Controller::Root;
   2 use Moose;
   3 BEGIN { extends 'Catalyst::Controller' };
   4
   5 __PACKAGE__->config->{namespace} = '';
   6
   7 sub index :Path Args() {}
   8
   9 sub model : Local {
  10     my ($self, $c) = @_;
  11     $c->model; # Cause model lookup and ergo warning we are testing.
  12     $c->res->body('foo');
  13 }
  14
  15 sub view : Local {
  16     my ($self, $c) = @_;
  17     $c->view; # Cause view lookup and ergo warning we are testing.
  18     $c->res->body('bar');
  19 }
  20
  21 1;