use Mouse::Util qw(does_role not_supported); # enables strict and warnings
use Carp qw(confess);
-use Scalar::Util qw/blessed looks_like_number openhandle/;
+use Scalar::Util ();
use Mouse::Meta::TypeConstraint;
use Mouse::Exporter;
my %TYPE;
-sub as ($) { (as => $_[0]) }
-sub where (&) { (where => $_[0]) }
-sub message (&) { (message => $_[0]) }
+sub as ($) { (as => $_[0]) }
+sub where (&) { (where => $_[0]) }
+sub message (&) { (message => $_[0]) }
sub optimize_as (&) { (optimize_as => $_[0]) }
sub from { @_ }
my($name, $options) = @_;
my $class = $options->{class} || $name;
return _create_type 'subtype', $name => (
- as => 'Object',
+ as => 'Object',
optimized_as => _generate_class_type_for($class),
type => 'Class',
my $role = $options->{role} || $name;
return _create_type 'subtype', $name => (
as => 'Object',
- optimized_as => sub { blessed($_[0]) && does_role($_[0], $role) },
+ optimized_as => sub { Scalar::Util::blessed($_[0]) && does_role($_[0], $role) },
type => 'Role',
);
}
sub find_or_create_does_type_constraint{
+ # XXX: Moose does not register a new role_type, but Mouse does.
return find_or_parse_type_constraint(@_) || role_type(@_);
}
sub find_or_create_isa_type_constraint {
+ # XXX: Moose does not register a new class_type, but Mouse does.
return find_or_parse_type_constraint(@_) || class_type(@_);
}
=head1 VERSION
-This document describes Mouse version 0.40_01
+This document describes Mouse version 0.40_02
=head2 SYNOPSIS