lib/SomeModelClass.pm

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