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 |