Make get_all_attributes() sorted by their definition order

[gitmo/Mouse.git] / lib / Mouse / Meta / TypeConstraint.pm

diff --git a/lib/Mouse/Meta/TypeConstraint.pm b/lib/Mouse/Meta/TypeConstraint.pm
index 182ee88..f2319fa 100644 (file)
--- 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;
@@ -48,13 +47,9 @@ sub new {
     return $self;
 }
 
-sub create_child_type{
+sub create_child_type {
     my $self = shift;
-    return ref($self)->new(
-        @_,
-        # and inherits other attributes from the parent
-        parent => $self,
-   );
+    return ref($self)->new(@_, parent => $self);
 }
 
 sub name;
@@ -226,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) = @_;
@@ -245,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