t/lib/DemoTypeLibrary.pm

   1 package DemoTypeLibrary;
   2
   3 use MooseX::Types
   4     -declare => [qw(
   5         MessageDocument
   6     )];
   7
   8 use MooseX::Types::Moose qw/Str/;
   9 use MooseX::Types::Structured qw/Dict/;
  10
  11 subtype MessageDocument,
  12     as Dict[
  13         name => Str,
  14         type => Str,
  15     ];
  16
  17
  18 1;
  19