X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FPurePerl.pm;h=de5749200fd42db6bd6e0b9bb94e300b1af982ce;hb=d7d8d49b322c4d0f274aaafb049b324e1de6b552;hp=8644c935b40466e236d47c96d4ac7f8d17a02624;hpb=935400114c35ad1b2481c48ff471e180e9c93d93;p=gitmo%2FMouse.git

diff --git a/lib/Mouse/PurePerl.pm b/lib/Mouse/PurePerl.pm
index 8644c93..de57492 100644
--- a/lib/Mouse/PurePerl.pm
+++ b/lib/Mouse/PurePerl.pm
@@ -77,9 +77,23 @@ sub get_code_ref{
 package
     Mouse::Util::TypeConstraints;
 
+sub _generate_class_type_for{
+    my($for_class, $name) = @_;
+
+    my $predicate = sub{ Scalar::Util::blessed($_[0]) && $_[0]->isa($for_class) };
+
+    if(defined $name){
+        no strict 'refs';
+        *{ caller() . '::' . $name } = $predicate;
+        return;
+    }
+
+    return $predicate;
+}
+
+
 sub Any        { 1 }
 sub Item       { 1 }
-sub Maybe      { 1 }
 
 sub Bool       { $_[0] ? $_[0] eq '1' : 1 }
 sub Undef      { !defined($_[0]) }
@@ -141,6 +155,7 @@ sub get_roles { $_[0]->{roles} }
 package
     Mouse::Meta::Attribute;
 
+use Mouse::Meta::Method::Accessor;
 
 # readers