X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FTypeConstraint.pm;h=f2319faae0ff69c84e50a2d7cf2488a2449eb69e;hb=793458491cfc640b71f04684e2644c7ceeac648e;hp=1df270dceee83d58d476c3f2d80167c238214f23;hpb=c5940bae3f593d389abce62204268e1a4be33f7d;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Meta/TypeConstraint.pm b/lib/Mouse/Meta/TypeConstraint.pm index 1df270d..f2319fa 100644 --- a/lib/Mouse/Meta/TypeConstraint.pm +++ b/lib/Mouse/Meta/TypeConstraint.pm @@ -1,6 +1,5 @@ package Mouse::Meta::TypeConstraint; use Mouse::Util qw(:meta); # enables strict and warnings -use Scalar::Util (); sub new { my $class = shift; @@ -222,7 +221,7 @@ sub assert_valid { } sub _as_string { $_[0]->name } # overload "" -sub _identity { Scalar::Util::refaddr($_[0]) } # overload 0+ +sub _identity; # overload 0+ sub _unite { # overload infix:<|> my($lhs, $rhs) = @_; @@ -241,7 +240,7 @@ Mouse::Meta::TypeConstraint - The Mouse Type Constraint metaclass =head1 VERSION -This document describes Mouse version 0.71 +This document describes Mouse version 0.73 =head1 DESCRIPTION