[catagits/Catalyst-Runtime.git] / t / lib / TestApp / Controller / Moose.pm

package TestApp::Controller::Moose;

use Moose;

use namespace::clean -except => 'meta';

BEGIN { extends qw/Catalyst::Controller/; }

has attribute => (
    is      => 'ro',
    default => 42,
);

sub get_attribute : Local {
    my ($self, $c) = @_;
    $c->response->body($self->attribute);
}

1;
Commit	Line	Data
2167982f	1	package TestApp::Controller::Moose;
	2
	3	use Moose;
	4
	5	use namespace::clean -except => 'meta';
	6
	7	BEGIN { extends qw/Catalyst::Controller/; }
	8
	9	has attribute => (
	10	is => 'ro',
	11	default => 42,
	12	);
	13
	14	sub get_attribute : Local {
	15	my ($self, $c) = @_;
	16	$c->response->body($self->attribute);
	17	}
	18
	19	1;