t/lib/DynamicAppDemo/Controller/FakeExample.pm

   1 package DynamicAppDemo::Controller::FakeExample;
   2 use Moose;
   3 use namespace::autoclean;
   4
   5 BEGIN { extends 'Catalyst::Controller' }
   6 with 'CatalystX::ModelToControllerReflector::ControllerRole';
   7
   8 # This is a fake controller.
   9
  10 # It exists to show an example of using ::ControllerBase which is autogenerated,
  11 # which helps me seperate the building and testing of the controller action
  12 # registration functionality, seperate the the code generation :)
  13
  14 sub register_me {
  15     my ($self, $c) = @_;
  16     $c->res->body('quux');
  17     $c->res->header('X-Foo', 'bar');
  18 }
  19
  20 sub _do_not_register_me { }
  21
  22 # In a non-trivial example, you would use MX::Method::Sigs :)
  23
  24 __PACKAGE__->meta->make_immutable;
  25