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

package SomeModelClass;
use Moose;
use CatalystX::ControllerGeneratingModel;
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. :)

command say_hello => sub {
    my ($self, $name) = @_;
    return("Hello $name");
};

__PACKAGE__->meta->make_immutable;
Commit	Line	Data
7d26c84b	1	package SomeModelClass;
7d26c84b	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) = @_;
7d26c84b	14	return("Hello $name");
8c228ad4	15	};
7d26c84b	16
	17	__PACKAGE__->meta->make_immutable;
	18