From: Stevan Little Date: Mon, 6 Aug 2007 14:18:33 +0000 (+0000) Subject: adding some method stubs for deblolaz X-Git-Tag: 0_25~17 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d1e11f1b9587b09a4231416b7272c3787578730d;p=gitmo%2FMoose.git adding some method stubs for deblolaz --- diff --git a/lib/Moose/Meta/TypeConstraint/Union.pm b/lib/Moose/Meta/TypeConstraint/Union.pm index 162b80a..2a24f22 100644 --- a/lib/Moose/Meta/TypeConstraint/Union.pm +++ b/lib/Moose/Meta/TypeConstraint/Union.pm @@ -5,7 +5,7 @@ use strict; use warnings; use metaclass; -our $VERSION = '0.04'; +our $VERSION = '0.05'; our $AUTHORITY = 'cpan:STEVAN'; __PACKAGE__->meta->add_attribute('type_constraints' => ( @@ -110,6 +110,20 @@ sub is_subtype_of { return 0; } +## hand optimized constraints + +# NOTE: +# it will just use all the hand optimized +# type constraints from it's list of type +# constraints automatically, but there is +# no simple way to optimize it even more +# (without B::Deparse or something). So +# we just stop here. +# - SL + +sub has_hand_optimized_type_constraint { 0 } +sub hand_optimized_type_constraint { undef } + 1; __END__