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

package TestAppWithMeta::Controller::Root;
use Moose;
use namespace::clean -except => 'meta';

BEGIN { extends 'Catalyst::Controller' }

__PACKAGE__->config( namespace => '' );

no warnings 'redefine';
sub meta { 'fnar' }
use warnings 'redefine';

sub default : Private {
    my ($self, $c) = @_;
    $c->res->body($self->meta);
}

1;
Commit	Line	Data
2664a81b	1	package TestAppWithMeta::Controller::Root;
	2	use Moose;
	3	use namespace::clean -except => 'meta';
	4
	5	BEGIN { extends 'Catalyst::Controller' }
	6
	7	__PACKAGE__->config( namespace => '' );
	8
	9	no warnings 'redefine';
	10	sub meta { 'fnar' }
	11	use warnings 'redefine';
	12
	13	sub default : Private {
	14	my ($self, $c) = @_;
	15	$c->res->body($self->meta);
	16	}
	17
	18	1;
	19