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