use Scalar::Util qw/blessed looks_like_number openhandle/;
use Mouse::Util qw(does_role not_supported);
-use Mouse::Meta::Module; # class_of
use Mouse::Meta::TypeConstraint;
-use constant _DEBUG => !!$ENV{TC_DEBUG};
-
our @ISA = qw(Exporter);
our @EXPORT = qw(
as where message from via type subtype coerce class_type role_type enum
);
}
-# this is an original method for Mouse
sub typecast_constraints {
my($class, $pkg, $type, $value) = @_;
Carp::croak("wrong arguments count") unless @_ == 4;
+ Carp::cluck("typecast_constraints() has been deprecated, which was an internal utility anyway");
+
return $type->coerce($value);
}
return $TYPE{$spec} if exists $TYPE{$spec};
- my $meta = Mouse::Meta::Module::class_of($spec);
+ my $meta = Mouse::Util::get_metaclass_by_name($spec);
if(!$meta){
return;
$type = 'Class';
}
- warn "#CREATE a $type type for $spec\n" if _DEBUG;
-
return $TYPE{$spec} = Mouse::Meta::TypeConstraint->new(
name => $spec,
optimized => $check,
my $name = sprintf '%s[%s]', $base->name, $param->name;
$TYPE{$name} ||= do{
- warn "#CREATE a Parameterized type for $name\n" if _DEBUG;
-
my $generator = $base->{constraint_generator};
if(!$generator){
my $name = join '|', map{ $_->name } @types;
$TYPE{$name} ||= do{
- warn "# CREATE a Union type for ", Mouse::Util::english_list(@types),"\n" if _DEBUG;
-
return Mouse::Meta::TypeConstraint->new(
name => $name,
type_constraints => \@types,