t/lib/TestAppWithMeta/Controller/Root.pm

   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