Commit | Line | Data |
---|---|---|
7d26c84b | 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 |