Commit | Line | Data |
7d26c84b |
1 | package SomeModelClass; |
2 | use Moose; |
8c228ad4 |
3 | use CatalystX::ControllerGeneratingModel; |
046d763d |
4 | use namespace::autoclean; |
7d26c84b |
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 | |
8c228ad4 |
12 | command say_hello => sub { |
7d26c84b |
13 | my ($self, $name) = @_; |
14 | return("Hello $name"); |
8c228ad4 |
15 | }; |
7d26c84b |
16 | |
17 | __PACKAGE__->meta->make_immutable; |
18 | |