X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FTypeConstraint.pm;h=8962939acc438a000a97fe2448a34f634a958c35;hb=22be7db2e5caf8f32b4e875b7da0e26b6a65f837;hp=c9f5b11ee2681a379fb295bc60ec2d6e948a51f3;hpb=999072aba606906b12c2f18e0ebde72e224de4dc;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Meta/TypeConstraint.pm b/lib/Mouse/Meta/TypeConstraint.pm index c9f5b11..8962939 100644 --- a/lib/Mouse/Meta/TypeConstraint.pm +++ b/lib/Mouse/Meta/TypeConstraint.pm @@ -240,8 +240,10 @@ sub assert_valid { return 1; } -sub _as_string { $_[0]->name } # overload "" -sub _identity; # overload 0+ +# overloading stuff + +sub _as_string { $_[0]->name } # overload "" +sub _identity; # overload 0+ sub _unite { # overload infix:<|> my($lhs, $rhs) = @_;