lib/DynamicAppDemo/Controller/FakeExample.pm

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