Implement a class_type generator

[gitmo/Mouse.git] / lib / Mouse / PurePerl.pm

diff --git a/lib/Mouse/PurePerl.pm b/lib/Mouse/PurePerl.pm
index 8644c93..f2802db 100644 (file)
--- 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::blessd($_[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]) }