[catagits/Catalyst-Runtime.git] / t / lib / TestAppMVCWarnings / Controller / Root.pm

package TestAppMVCWarnings::Controller::Root;
use Moose;
BEGIN { extends 'Catalyst::Controller' };

__PACKAGE__->config->{namespace} = '';

sub index :Path Args() {}

sub model : Local {
    my ($self, $c) = @_;
    $c->model; # Cause model lookup and ergo warning we are testing.
    $c->res->body('foo');
}

sub view : Local {
    my ($self, $c) = @_;
    $c->view; # Cause view lookup and ergo warning we are testing.
    $c->res->body('bar');
}

1;
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;