}
}
- if($TYPE{$name}){
+ if(defined $TYPE{$name}){
my $that = $TYPE{$name}->{package_defined_in} || __PACKAGE__;
if($this ne $that) {
my $note = '';
my $class = $options->{class} || $name;
# ClassType
- return _define_type 1, $name => (
+ return subtype $name => (
as => 'Object',
optimized_as => Mouse::Util::generate_isa_predicate_for($class),
class => $class,
my $role = $options->{role} || $name;
# RoleType
- return _define_type 1, $name => (
+ return subtype $name => (
as => 'Object',
optimized_as => sub {
return Scalar::Util::blessed($_[0])
=head1 VERSION
-This document describes Mouse version 0.73
+This document describes Mouse version 0.76
=head2 SYNOPSIS