t/lib/TestApp/Controller/Moose.pm

   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;