lib/SomeModelClass.pm

   1 package SomeModelClass;
   2 use Moose;
   3 use CatalystX::ControllerGeneratingModel;
   4 use namespace::autoclean;
   5
   6 # Note trivial calling convention.
   7 # Apply MX::Method::Signatures and MX::Types::Structured to be less lame.
   8
   9 # Introspection should only reflect methods which satisfy the calling convention
  10 # This is left as an exercise to the reader. :)
  11
  12 command say_hello => sub {
  13     my ($self, $name) = @_;
  14     return("Hello $name");
  15 };
  16
  17 __PACKAGE__->meta->make_immutable;
  18