-#!/usr/bin/env perl
package Mouse::TypeRegistry;
use strict;
use warnings;
my $class = $conf->{class};
Mouse::load_class($class);
_subtype(
- $name => where => sub {
- defined $_ && ref($_) eq $class;
- }
+ $name => where => sub { $_->isa($class) }
);
}