Make the generated action method fit better into what the StompTestApp::Controller...

[catagits/CatalystX-DynamicComponent.git] / t / lib / SomeModelClass.pm

package SomeModelClassInterface;
use Moose::Role;
use namespace::autoclean;

requires 'say_hello';

package SomeModelClass;
use Moose;
use CatalystX::ControllerGeneratingModel;
use DemoTypeLibrary qw/MessageDocument/;
use MooseX::Lexical::Types qw/MessageDocument/;
use namespace::autoclean;

# Note trivial calling convention.
# Apply MX::Method::Signatures and MX::Types::Structured to be less lame.

# Introspection should only reflect methods which satisfy the calling convention
# This is left as an exercise to the reader. :)

# Note command syntax not actually needed, this could be a normal sub,
# but doing so makes the eventual merge harder..

command say_hello => sub {
    my ($self, $document) = @_;

    my $name = $document->{name};
    return({ type => 'say_hello_response',

            body => "Hello $name" });
};

with 'SomeModelClassInterface';

before 'say_hello' => sub {
    my $self = shift;
    my MessageDocument $message = shift;
};

__PACKAGE__->meta->make_immutable;