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

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;
Commit	Line	Data
664c8612	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