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

package SomeModelClass;
use Moose;
use namespace::clean -except => 'meta';

# 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. :)

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

__PACKAGE__->meta->make_immutable;
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