+++ /dev/null
-package DemoTypeLibrary;
-
-use MooseX::Types
- -declare => [qw(
- MessageDocument
- )];
-
-use MooseX::Types::Moose qw/Str/;
-use MooseX::Types::Structured qw/Dict/;
-
-subtype MessageDocument,
- as Dict[
- name => Str,
- type => Str,
- ];
-
-
-1;
-
package SomeModelClass;
use Moose;
use CatalystX::ControllerGeneratingModel;
-use DemoTypeLibrary qw/MessageDocument/;
-use MooseX::Lexical::Types qw/MessageDocument/;
use namespace::autoclean;
# Note trivial calling convention.
with 'SomeModelClassInterface';
-before 'say_hello' => sub {
- my $self = shift;
- my MessageDocument $message = shift;
-};
-
__PACKAGE__->meta->make_immutable;