From: Stevan Little <stevan.little@iinteractive.com>
Date: Tue, 22 Jan 2008 02:25:33 +0000 (+0000)
Subject: this is not needed now
X-Git-Tag: 0_35~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=45fd4af3f6e105226269374597a182f1b2767131;p=gitmo%2FMoose.git

this is not needed now
---

diff --git a/Changes b/Changes
index bb13ce7..d262a1a 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,11 @@
 Revision history for Perl extension Moose
 
+0.35
+    * Moose::Meta::Method::Constructor
+      - fix to make sure even Class::MOP attributes 
+        are handled correctly (Thanks to autarch)
+        - added test for this
+
 0.34 Mon. Jan. 21, 2008
     ~~~ more misc. doc. fixes ~~~
     ~~ updated copyright dates ~~
diff --git a/lib/Moose/Meta/Method/Constructor.pm b/lib/Moose/Meta/Method/Constructor.pm
index a85afca..c62f316 100644
--- a/lib/Moose/Meta/Method/Constructor.pm
+++ b/lib/Moose/Meta/Method/Constructor.pm
@@ -7,7 +7,7 @@ use warnings;
 use Carp         'confess';
 use Scalar::Util 'blessed', 'weaken', 'looks_like_number';
 
-our $VERSION   = '0.05';
+our $VERSION   = '0.06';
 our $AUTHORITY = 'cpan:STEVAN';
 
 use base 'Moose::Meta::Method',
@@ -93,7 +93,7 @@ sub intialize_body {
         # objects, rather than
         # Moose::Meta::Attribute. Class::MOP::Attribute attributes
         # have no type constraints.
-        my @type_constraints = map { $_->type_constraint } @$attrs;
+        my @type_constraints = map { $_->type_constraint } grep { $_->can('type_constraint') } @$attrs;
         my @type_constraint_bodies = map {
             $_ && $_->_compiled_type_constraint;
         } @type_constraints;