use Scalar::Util qw/blessed looks_like_number openhandle/;
use Mouse::Util qw(does_role not_supported);
-use Mouse::Meta::Module; # get_metaclass_by_name()
use Mouse::Meta::TypeConstraint;
our @ISA = qw(Exporter);
);
}
- sub optimized_constraints {
+ sub optimized_constraints { # DEPRECATED
Carp::cluck('optimized_constraints() has been deprecated');
return \%TYPE;
}
);
}
-sub typecast_constraints {
+sub typecast_constraints { # DEPRECATED
my($class, $pkg, $type, $value) = @_;
Carp::croak("wrong arguments count") unless @_ == 4;
return $TYPE{$spec} if exists $TYPE{$spec};
- my $meta = Mouse::Meta::Module::get_metaclass_by_name($spec);
+ my $meta = Mouse::Util::get_metaclass_by_name($spec);
if(!$meta){
return;