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

package TestAppWithMeta::Controller::Root;
use base qw/Catalyst::Controller/; # N.B. Do not convert to Moose, so we do not
                                   #      have a metaclass instance!

__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
ceae39c5	1	package TestAppWithMeta::Controller::Root;
	2	use base qw/Catalyst::Controller/; # N.B. Do not convert to Moose, so we do not
	3	# have a metaclass instance!
	4
	5	__PACKAGE__->config( namespace => '' );
	6
	7	no warnings 'redefine';
	8	sub meta { 'fnar' }
	9	use warnings 'redefine';
	10
	11	sub default : Private {
	12	my ($self, $c) = @_;
	13	$c->res->body($self->meta);
	14	}
	15
	16	1;
	17