X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FTypeRegistry.pm;h=a10e7a4c04b842bd6408bb801af1b287a15e351e;hb=7daedfff24bc2061ea1028f415b2e914bd8f1639;hp=055c1ac629841bdaf489af2486f1c6026e0e914b;hpb=2f665925359d9fba8a49baeccd7ad798f733221d;p=gitmo%2FMouse.git

diff --git a/lib/Mouse/TypeRegistry.pm b/lib/Mouse/TypeRegistry.pm
index 055c1ac..a10e7a4 100644
--- a/lib/Mouse/TypeRegistry.pm
+++ b/lib/Mouse/TypeRegistry.pm
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 package Mouse::TypeRegistry;
 use strict;
 use warnings;
@@ -129,9 +128,7 @@ sub _class_type {
     my $class = $conf->{class};
     Mouse::load_class($class);
     _subtype(
-        $name => where => sub {
-            defined $_ && ref($_) eq $class;
-        }
+        $name => where => sub { $_->isa($class) }
     );
 }