[gitmo/Mouse.git] / lib / MouseX / Types / Mouse.pm

package MouseX::Types::Mouse;
use strict;
use warnings;

BEGIN { require Mouse::TypeRegistry }
use MouseX::Types;

BEGIN {
    my $builtin_type = +{ map { $_ => $_ } Mouse::TypeRegistry->list_all_builtin_type_constraints };
    sub type_storage { $builtin_type }
}

1;
Commit	Line	Data
5439cf97	1	package MouseX::Types::Mouse;
	2	use strict;
	3	use warnings;
	4
	5	BEGIN { require Mouse::TypeRegistry }
	6	use MouseX::Types;
	7
	8	BEGIN {
	9	my $builtin_type = +{ map { $_ => $_ } Mouse::TypeRegistry->list_all_builtin_type_constraints };
	10	sub type_storage { $builtin_type }
	11	}
	12
	13	1;
	14
	15