-#!/usr/bin/env perl
package Mouse::TypeRegistry;
-use strict;
-use warnings;
+use Mouse::Util::TypeConstraints;
-sub optimized_constraints {
- return {
- Any => sub { 1 },
- Item => sub { 1 },
- Bool => sub {
- !defined($_) || $_ eq "" || "$_" eq '1' || "$_" eq '0'
- },
- Undef => sub { 1 },
- Defined => sub { 1 },
- Value => sub { 1 },
- Num => sub { 1 },
- Int => sub { 1 },
- Str => sub { 1 },
- ClassName => sub { 1 },
- Ref => sub { 1 },
- ScalarRef => sub { 1 },
- ArrayRef => sub { 1 },
- HashRef => sub { 1 },
- CodeRef => sub { 1 },
- RegexpRef => sub { 1 },
- GlobRef => sub { 1 },
- FileHandle => sub { 1 },
- Object => sub { 1 },
- };
+sub import {
+ warn "Mouse::TypeRegistry is deprecated, please use Mouse::Util::TypeConstraints instead.";
+
+ shift @_;
+ unshift @_, 'Mouse::Util::TypeConstraints';
+ goto \&Mouse::Util::TypeConstraints::import;
+}
+
+sub unimport {
+ warn "Mouse::TypeRegistry is deprecated, please use Mouse::Util::TypeConstraints instead.";
+
+ shift @_;
+ unshift @_, 'Mouse::Util::TypeConstraints';
+ goto \&Mouse::Util::TypeConstraints::unimport;
}
1;