Skip to content

Instantly share code, notes, and snippets.

@0branch

0branch/object-constraint.pl

Created April 2, 2011 17:14
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save 0branch/899668 to your computer and use it in GitHub Desktop.
Save 0branch/899668 to your computer and use it in GitHub Desktop.
Download ZIP
moose definition of Object type constraint
Raw
object-constraint.pl
subtype 'Object' => as 'Ref' =>
where { blessed($_) && blessed($_) ne 'Regexp' } =>
optimize_as \&Moose::Util::TypeConstraints::OptimizedConstraints::Object;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment