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