Commit | Line | Data |
---|---|---|
9e981d5f | 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; |