r38574 - in /trunk/libmoose-perl: ./ debian/ lib/ lib/Moose/ lib/Moose/Cookbook/Basics/ lib/Moose/Error/ lib/Moose/Manual/ lib/Moose/Meta/ lib/Moose/Meta/Class/Immutable/ lib/Moose/Meta/Method/ lib/Moose/Meta/Role/ lib/Moose/Meta/Role/Application/ lib/Moose/Meta/Role/Method/ lib/Moose/Meta/TypeCoercion/ lib/Moose/Meta/TypeConstraint/ lib/Moose/Util/ lib/Moose/Util/TypeConstraints/ lib/Test/ t/100_bugs/ t/300_immutable/

carnil-guest at users.alioth.debian.org carnil-guest at users.alioth.debian.org
Wed Jun 24 08:03:57 UTC 2009


Author: carnil-guest
Date: Wed Jun 24 08:03:51 2009
New Revision: 38574

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=38574
Log:
* New upstream release
* debian/control: Bump Build-Depends on libclass-mop-class to >= 0.88.

Modified:
    trunk/libmoose-perl/Changes
    trunk/libmoose-perl/META.yml
    trunk/libmoose-perl/Makefile.PL
    trunk/libmoose-perl/README
    trunk/libmoose-perl/debian/changelog
    trunk/libmoose-perl/debian/control
    trunk/libmoose-perl/lib/Moose.pm
    trunk/libmoose-perl/lib/Moose/Cookbook/Basics/Recipe8.pod
    trunk/libmoose-perl/lib/Moose/Error/Confess.pm
    trunk/libmoose-perl/lib/Moose/Error/Croak.pm
    trunk/libmoose-perl/lib/Moose/Error/Default.pm
    trunk/libmoose-perl/lib/Moose/Exporter.pm
    trunk/libmoose-perl/lib/Moose/Manual/FAQ.pod
    trunk/libmoose-perl/lib/Moose/Manual/MooseX.pod
    trunk/libmoose-perl/lib/Moose/Meta/Attribute.pm
    trunk/libmoose-perl/lib/Moose/Meta/Class.pm
    trunk/libmoose-perl/lib/Moose/Meta/Class/Immutable/Trait.pm
    trunk/libmoose-perl/lib/Moose/Meta/Instance.pm
    trunk/libmoose-perl/lib/Moose/Meta/Method.pm
    trunk/libmoose-perl/lib/Moose/Meta/Method/Accessor.pm
    trunk/libmoose-perl/lib/Moose/Meta/Method/Augmented.pm
    trunk/libmoose-perl/lib/Moose/Meta/Method/Constructor.pm
    trunk/libmoose-perl/lib/Moose/Meta/Method/Delegation.pm
    trunk/libmoose-perl/lib/Moose/Meta/Method/Destructor.pm
    trunk/libmoose-perl/lib/Moose/Meta/Method/Overridden.pm
    trunk/libmoose-perl/lib/Moose/Meta/Role.pm
    trunk/libmoose-perl/lib/Moose/Meta/Role/Application.pm
    trunk/libmoose-perl/lib/Moose/Meta/Role/Application/RoleSummation.pm
    trunk/libmoose-perl/lib/Moose/Meta/Role/Application/ToClass.pm
    trunk/libmoose-perl/lib/Moose/Meta/Role/Application/ToInstance.pm
    trunk/libmoose-perl/lib/Moose/Meta/Role/Application/ToRole.pm
    trunk/libmoose-perl/lib/Moose/Meta/Role/Composite.pm
    trunk/libmoose-perl/lib/Moose/Meta/Role/Method.pm
    trunk/libmoose-perl/lib/Moose/Meta/Role/Method/Conflicting.pm
    trunk/libmoose-perl/lib/Moose/Meta/Role/Method/Required.pm
    trunk/libmoose-perl/lib/Moose/Meta/TypeCoercion.pm
    trunk/libmoose-perl/lib/Moose/Meta/TypeCoercion/Union.pm
    trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint.pm
    trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Class.pm
    trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Enum.pm
    trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Parameterizable.pm
    trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Parameterized.pm
    trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Registry.pm
    trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Role.pm
    trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Union.pm
    trunk/libmoose-perl/lib/Moose/Object.pm
    trunk/libmoose-perl/lib/Moose/Role.pm
    trunk/libmoose-perl/lib/Moose/Util.pm
    trunk/libmoose-perl/lib/Moose/Util/MetaRole.pm
    trunk/libmoose-perl/lib/Moose/Util/TypeConstraints.pm
    trunk/libmoose-perl/lib/Moose/Util/TypeConstraints/OptimizedConstraints.pm
    trunk/libmoose-perl/lib/Test/Moose.pm
    trunk/libmoose-perl/lib/oose.pm
    trunk/libmoose-perl/t/100_bugs/024_anon_method_metaclass.t
    trunk/libmoose-perl/t/300_immutable/014_immutable_metaclass_with_traits.t

Modified: trunk/libmoose-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/Changes?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/Changes (original)
+++ trunk/libmoose-perl/Changes Wed Jun 24 08:03:51 2009
@@ -1,5 +1,10 @@
 Also see Moose::Manual::Delta for more details of, and workarounds
 for, noteworthy changes.
+
+0.83 Tue, Jun 23, 2009
+    * Moose::Meta::Class
+      - Fix _construct_instance not setting the special __MOP__ object
+        key in instances of anon classes. (doy)
 
 0.82 Sun, Jun 21, 2009
     * Moose::Manual::Types

Modified: trunk/libmoose-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/META.yml?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/META.yml (original)
+++ trunk/libmoose-perl/META.yml Wed Jun 24 08:03:51 2009
@@ -22,7 +22,7 @@
     - xt
 requires:
   Carp: 0
-  Class::MOP: 0.87
+  Class::MOP: 0.88
   Data::OptList: 0
   List::MoreUtils: 0.12
   Scalar::Util: 1.19
@@ -32,4 +32,4 @@
   perl: 5.8.1
 resources:
   license: http://dev.perl.org/licenses/
-version: 0.82
+version: 0.83

Modified: trunk/libmoose-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/Makefile.PL?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/Makefile.PL (original)
+++ trunk/libmoose-perl/Makefile.PL Wed Jun 24 08:03:51 2009
@@ -12,7 +12,7 @@
 
 requires 'Scalar::Util'     => '1.19';
 requires 'Carp';
-requires 'Class::MOP'       => '0.87';
+requires 'Class::MOP'       => '0.88';
 requires 'List::MoreUtils'  => '0.12';
 requires 'Sub::Exporter'    => '0.972';
 requires 'Task::Weaken'     => '0';

Modified: trunk/libmoose-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/README?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/README (original)
+++ trunk/libmoose-perl/README Wed Jun 24 08:03:51 2009
@@ -1,4 +1,4 @@
-Moose version 0.82
+Moose version 0.83
 ===========================
 
 See the individual module documentation for more information

Modified: trunk/libmoose-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/debian/changelog?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/debian/changelog (original)
+++ trunk/libmoose-perl/debian/changelog Wed Jun 24 08:03:51 2009
@@ -1,3 +1,10 @@
+libmoose-perl (0.83-1) UNRELEASED; urgency=low
+
+  * New upstream release
+  * debian/control: Bump Build-Depends on libclass-mop-class to >= 0.88.
+
+ -- Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>  Wed, 24 Jun 2009 10:02:24 +0200
+
 libmoose-perl (0.82-1) unstable; urgency=low
 
   [ Ryan Niebur ]

Modified: trunk/libmoose-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/debian/control?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/debian/control (original)
+++ trunk/libmoose-perl/debian/control Wed Jun 24 08:03:51 2009
@@ -3,7 +3,7 @@
 Priority: optional
 Build-Depends: debhelper (>= 7)
 Build-Depends-Indep: perl (>= 5.10),
- libclass-mop-perl (>= 0.87), libsub-exporter-perl (>= 0.972),
+ libclass-mop-perl (>= 0.88), libsub-exporter-perl (>= 0.972),
  libtest-exception-perl (>= 0.27), libtest-pod-perl, libtest-pod-coverage-perl,
  liburi-perl, libio-string-perl, libtest-deep-perl, libsub-name-perl (>= 0.02),
  libregexp-common-perl, liblocale-us-perl, libmodule-refresh-perl,

Modified: trunk/libmoose-perl/lib/Moose.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose.pm (original)
+++ trunk/libmoose-perl/lib/Moose.pm Wed Jun 24 08:03:51 2009
@@ -2,7 +2,7 @@
 
 use 5.008;
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 
@@ -11,7 +11,7 @@
 
 use Moose::Exporter;
 
-use Class::MOP 0.87;
+use Class::MOP 0.88;
 
 use Moose::Meta::Class;
 use Moose::Meta::TypeConstraint;

Modified: trunk/libmoose-perl/lib/Moose/Cookbook/Basics/Recipe8.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Cookbook/Basics/Recipe8.pod?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Cookbook/Basics/Recipe8.pod (original)
+++ trunk/libmoose-perl/lib/Moose/Cookbook/Basics/Recipe8.pod Wed Jun 24 08:03:51 2009
@@ -3,7 +3,7 @@
 
 =head1 NAME
 
-Moose::Cookbook::Basics::Recipe9 - Builder methods and lazy_build
+Moose::Cookbook::Basics::Recipe8 - Builder methods and lazy_build
 
 =head1 SYNOPSIS
 

Modified: trunk/libmoose-perl/lib/Moose/Error/Confess.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Error/Confess.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Error/Confess.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Error/Confess.pm Wed Jun 24 08:03:51 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Error/Croak.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Error/Croak.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Error/Croak.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Error/Croak.pm Wed Jun 24 08:03:51 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Error/Default.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Error/Default.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Error/Default.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Error/Default.pm Wed Jun 24 08:03:51 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Exporter.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Exporter.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Exporter.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Exporter.pm Wed Jun 24 08:03:51 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Manual/FAQ.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Manual/FAQ.pod?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Manual/FAQ.pod (original)
+++ trunk/libmoose-perl/lib/Moose/Manual/FAQ.pod Wed Jun 24 08:03:51 2009
@@ -98,8 +98,8 @@
 route.
 
 That said, if you really need to inherit from a non-Moose class, see
-L<Moose::Cookbook::Basics::Recipe12> for an example of how to do it,
-or take a look at L<MooseX::NonMoose> on CPAN.
+L<Moose::Cookbook::Basics::Recipe11> for an example of how to do it,
+or take a look at L<Moose::Manual::MooseX/"MooseX::NonMoose">.
 
 =head2 Accessors
 
@@ -287,7 +287,7 @@
 
     subtype Address => as 'Str';
     coerce Address => from Str => via { get_address($_) };
-    
+
 Which is not what they intended. The Type Constraint C<Address> is too loose in this case, it is saying that all Strings are Addresses, which is obviously not the case. The solution is to provide a where clause that properly restricts the Type Constraint.
 
     subtype Address => as Str => where { looks_like_address($_) };

Modified: trunk/libmoose-perl/lib/Moose/Manual/MooseX.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Manual/MooseX.pod?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Manual/MooseX.pod (original)
+++ trunk/libmoose-perl/lib/Moose/Manual/MooseX.pod Wed Jun 24 08:03:51 2009
@@ -272,6 +272,14 @@
 Automatically names all accessors with an explicit set and implicit
 get, "size" and "set_size".
 
+=head2 L<MooseX::NonMoose>
+
+MooseX::NonMoose allows for easily subclassing non-Moose classes with Moose,
+taking care of the annoying details connected with doing this, such as
+setting up proper inheritance from Moose::Object and installing
+(and inlining, at make_immutable time) a constructor that makes sure things
+like BUILD methods are called.
+
 =head1 AUTHOR
 
 Dave Rolsky E<lt>autarch at urth.orgE<gt>

Modified: trunk/libmoose-perl/lib/Moose/Meta/Attribute.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/Attribute.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/Attribute.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/Attribute.pm Wed Jun 24 08:03:51 2009
@@ -7,7 +7,7 @@
 use Scalar::Util 'blessed', 'weaken';
 use overload     ();
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 our $AUTHORITY = 'cpan:STEVAN';
 
 use Moose::Meta::Method::Accessor;

Modified: trunk/libmoose-perl/lib/Moose/Meta/Class.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/Class.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/Class.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/Class.pm Wed Jun 24 08:03:51 2009
@@ -11,7 +11,7 @@
 use List::MoreUtils qw( any all uniq first_index );
 use Scalar::Util 'weaken', 'blessed';
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 
@@ -227,21 +227,6 @@
     return $self;
 }
 
-sub _construct_instance {
-    my $class = shift;
-    my $params = @_ == 1 ? $_[0] : {@_};
-    my $meta_instance = $class->get_meta_instance;
-    # FIXME:
-    # the code below is almost certainly incorrect
-    # but this is foreign inheritance, so we might
-    # have to kludge it in the end.
-    my $instance = $params->{'__INSTANCE__'} || $meta_instance->create_instance();
-    foreach my $attr ($class->get_all_attributes()) {
-        $attr->initialize_instance_slot($meta_instance, $instance, $params);
-    }
-    return $instance;
-}
-
 sub superclasses {
     my $self = shift;
     my @supers = @_;

Modified: trunk/libmoose-perl/lib/Moose/Meta/Class/Immutable/Trait.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/Class/Immutable/Trait.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/Class/Immutable/Trait.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/Class/Immutable/Trait.pm Wed Jun 24 08:03:51 2009
@@ -5,7 +5,7 @@
 
 use Class::MOP;
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/Instance.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/Instance.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/Instance.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/Instance.pm Wed Jun 24 08:03:51 2009
@@ -4,7 +4,7 @@
 use strict;
 use warnings;
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/Method.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/Method.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/Method.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/Method.pm Wed Jun 24 08:03:51 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/Method/Accessor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/Method/Accessor.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/Method/Accessor.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/Method/Accessor.pm Wed Jun 24 08:03:51 2009
@@ -4,7 +4,7 @@
 use strict;
 use warnings;
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/Method/Augmented.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/Method/Augmented.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/Method/Augmented.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/Method/Augmented.pm Wed Jun 24 08:03:51 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/Method/Constructor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/Method/Constructor.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/Method/Constructor.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/Method/Constructor.pm Wed Jun 24 08:03:51 2009
@@ -6,7 +6,7 @@
 
 use Scalar::Util 'blessed', 'weaken', 'looks_like_number', 'refaddr';
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 our $AUTHORITY = 'cpan:STEVAN';
 
 use base 'Moose::Meta::Method',

Modified: trunk/libmoose-perl/lib/Moose/Meta/Method/Delegation.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/Method/Delegation.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/Method/Delegation.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/Method/Delegation.pm Wed Jun 24 08:03:51 2009
@@ -7,7 +7,7 @@
 use Carp         'confess';
 use Scalar::Util 'blessed', 'weaken';
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/Method/Destructor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/Method/Destructor.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/Method/Destructor.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/Method/Destructor.pm Wed Jun 24 08:03:51 2009
@@ -6,7 +6,7 @@
 
 use Scalar::Util 'blessed', 'weaken';
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/Method/Overridden.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/Method/Overridden.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/Method/Overridden.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/Method/Overridden.pm Wed Jun 24 08:03:51 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/Role.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/Role.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/Role.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/Role.pm Wed Jun 24 08:03:51 2009
@@ -10,7 +10,7 @@
 use Sub::Name    'subname';
 use Devel::GlobalDestruction 'in_global_destruction';
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/Role/Application.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/Role/Application.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/Role/Application.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/Role/Application.pm Wed Jun 24 08:03:51 2009
@@ -4,7 +4,7 @@
 use warnings;
 use metaclass;
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/Role/Application/RoleSummation.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/Role/Application/RoleSummation.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/Role/Application/RoleSummation.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/Role/Application/RoleSummation.pm Wed Jun 24 08:03:51 2009
@@ -8,7 +8,7 @@
 
 use Moose::Meta::Role::Composite;
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/Role/Application/ToClass.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/Role/Application/ToClass.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/Role/Application/ToClass.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/Role/Application/ToClass.pm Wed Jun 24 08:03:51 2009
@@ -7,7 +7,7 @@
 use Moose::Util  'english_list';
 use Scalar::Util 'weaken', 'blessed';
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/Role/Application/ToInstance.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/Role/Application/ToInstance.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/Role/Application/ToInstance.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/Role/Application/ToInstance.pm Wed Jun 24 08:03:51 2009
@@ -6,7 +6,7 @@
 
 use Scalar::Util 'blessed';
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/Role/Application/ToRole.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/Role/Application/ToRole.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/Role/Application/ToRole.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/Role/Application/ToRole.pm Wed Jun 24 08:03:51 2009
@@ -6,7 +6,7 @@
 
 use Scalar::Util    'blessed';
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/Role/Composite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/Role/Composite.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/Role/Composite.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/Role/Composite.pm Wed Jun 24 08:03:51 2009
@@ -6,7 +6,7 @@
 
 use Scalar::Util 'blessed';
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/Role/Method.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/Role/Method.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/Role/Method.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/Role/Method.pm Wed Jun 24 08:03:51 2009
@@ -4,7 +4,7 @@
 use strict;
 use warnings;
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/Role/Method/Conflicting.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/Role/Method/Conflicting.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/Role/Method/Conflicting.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/Role/Method/Conflicting.pm Wed Jun 24 08:03:51 2009
@@ -6,7 +6,7 @@
 
 use base qw(Moose::Meta::Role::Method::Required);
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/Role/Method/Required.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/Role/Method/Required.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/Role/Method/Required.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/Role/Method/Required.pm Wed Jun 24 08:03:51 2009
@@ -10,7 +10,7 @@
 
 use base qw(Class::MOP::Object);
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/TypeCoercion.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/TypeCoercion.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/TypeCoercion.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/TypeCoercion.pm Wed Jun 24 08:03:51 2009
@@ -8,7 +8,7 @@
 use Moose::Meta::Attribute;
 use Moose::Util::TypeConstraints ();
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/TypeCoercion/Union.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/TypeCoercion/Union.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/TypeCoercion/Union.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/TypeCoercion/Union.pm Wed Jun 24 08:03:51 2009
@@ -7,7 +7,7 @@
 
 use Scalar::Util 'blessed';
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint.pm Wed Jun 24 08:03:51 2009
@@ -13,7 +13,7 @@
 
 use base qw(Class::MOP::Object);
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Class.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Class.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Class.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Class.pm Wed Jun 24 08:03:51 2009
@@ -7,7 +7,7 @@
 use Scalar::Util 'blessed';
 use Moose::Util::TypeConstraints ();
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Enum.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Enum.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Enum.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Enum.pm Wed Jun 24 08:03:51 2009
@@ -6,7 +6,7 @@
 
 use Moose::Util::TypeConstraints ();
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Parameterizable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Parameterizable.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Parameterizable.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Parameterizable.pm Wed Jun 24 08:03:51 2009
@@ -4,7 +4,7 @@
 use warnings;
 use metaclass;
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Parameterized.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Parameterized.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Parameterized.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Parameterized.pm Wed Jun 24 08:03:51 2009
@@ -8,7 +8,7 @@
 use Moose::Util::TypeConstraints;
 use Moose::Meta::TypeConstraint::Parameterizable;
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Registry.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Registry.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Registry.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Registry.pm Wed Jun 24 08:03:51 2009
@@ -7,7 +7,7 @@
 
 use Scalar::Util 'blessed';
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Role.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Role.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Role.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Role.pm Wed Jun 24 08:03:51 2009
@@ -7,7 +7,7 @@
 use Scalar::Util 'blessed';
 use Moose::Util::TypeConstraints ();
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Union.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Union.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Union.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Meta/TypeConstraint/Union.pm Wed Jun 24 08:03:51 2009
@@ -7,7 +7,7 @@
 
 use Moose::Meta::TypeCoercion::Union;
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Object.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Object.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Object.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Object.pm Wed Jun 24 08:03:51 2009
@@ -11,7 +11,7 @@
 use if ( not our $__mx_is_compiled ), 'Moose::Meta::Class';
 use if ( not our $__mx_is_compiled ), metaclass => 'Moose::Meta::Class';
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Role.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Role.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Role.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Role.pm Wed Jun 24 08:03:51 2009
@@ -6,7 +6,7 @@
 
 use Sub::Exporter;
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Util.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Util.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Util.pm Wed Jun 24 08:03:51 2009
@@ -8,7 +8,7 @@
 use Scalar::Util 'blessed';
 use Class::MOP   0.60;
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Util/MetaRole.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Util/MetaRole.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Util/MetaRole.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Util/MetaRole.pm Wed Jun 24 08:03:51 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Util/TypeConstraints.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Util/TypeConstraints.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Util/TypeConstraints.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Util/TypeConstraints.pm Wed Jun 24 08:03:51 2009
@@ -6,7 +6,7 @@
 use Scalar::Util qw( blessed reftype );
 use Moose::Exporter;
 
-our $VERSION = '0.82';
+our $VERSION = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Moose/Util/TypeConstraints/OptimizedConstraints.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Moose/Util/TypeConstraints/OptimizedConstraints.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Moose/Util/TypeConstraints/OptimizedConstraints.pm (original)
+++ trunk/libmoose-perl/lib/Moose/Util/TypeConstraints/OptimizedConstraints.pm Wed Jun 24 08:03:51 2009
@@ -6,7 +6,7 @@
 use Class::MOP;
 use Scalar::Util 'blessed', 'looks_like_number';
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/Test/Moose.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/Test/Moose.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/Test/Moose.pm (original)
+++ trunk/libmoose-perl/lib/Test/Moose.pm Wed Jun 24 08:03:51 2009
@@ -8,7 +8,7 @@
 
 use Moose::Util 'does_role', 'find_meta';
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/lib/oose.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/lib/oose.pm?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/lib/oose.pm (original)
+++ trunk/libmoose-perl/lib/oose.pm Wed Jun 24 08:03:51 2009
@@ -5,7 +5,7 @@
 
 use Class::MOP;
 
-our $VERSION   = '0.82';
+our $VERSION   = '0.83';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 

Modified: trunk/libmoose-perl/t/100_bugs/024_anon_method_metaclass.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/t/100_bugs/024_anon_method_metaclass.t?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/t/100_bugs/024_anon_method_metaclass.t (original)
+++ trunk/libmoose-perl/t/100_bugs/024_anon_method_metaclass.t Wed Jun 24 08:03:51 2009
@@ -39,8 +39,6 @@
     is( Ball->meta->get_method('bounce'), $method_object,
         'original method object is preserved' );
 
-    local $TODO = "method metaclass seems to be reinitialized" if !$method_meta;
-
     is( Ball->meta->get_method('bounce')->meta . '', $original_meta,
         "method's metaclass still exists" );
     ok( Ball->meta->get_method('bounce')->meta->does_role('Arbitrary::Roll'),

Modified: trunk/libmoose-perl/t/300_immutable/014_immutable_metaclass_with_traits.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmoose-perl/t/300_immutable/014_immutable_metaclass_with_traits.t?rev=38574&op=diff
==============================================================================
--- trunk/libmoose-perl/t/300_immutable/014_immutable_metaclass_with_traits.t (original)
+++ trunk/libmoose-perl/t/300_immutable/014_immutable_metaclass_with_traits.t Wed Jun 24 08:03:51 2009
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 10;
+use Test::More tests => 14;
 
 {
     package FooTrait;
@@ -19,16 +19,17 @@
     "class_of and ->meta are the same on Foo's metaclass");
 isa_ok(Class::MOP::class_of($meta), 'Moose::Meta::Class');
 isa_ok($meta->meta, 'Moose::Meta::Class');
+ok($meta->is_mutable, "class is mutable");
+ok(Class::MOP::class_of($meta)->is_mutable, "metaclass is mutable");
+ok($meta->meta->does_role('FooTrait'), "does the trait");
 Foo->meta->make_immutable;
 is(Class::MOP::class_of('Foo'), Foo->meta,
     "class_of and ->meta are the same on Foo (immutable)");
 $meta = Foo->meta;
 isa_ok($meta->meta, 'Moose::Meta::Class');
-ok(Class::MOP::class_of($meta)->is_immutable, "metaclass is immutable");
-TODO: {
-    local $TODO = "immutable metaclasses with traits do weird things";
-    is(Class::MOP::class_of($meta), $meta->meta,
-        "class_of and ->meta are the same on Foo's metaclass (immutable)");
-    isa_ok(Class::MOP::class_of($meta), 'Moose::Meta::Class');
-    ok($meta->meta->is_immutable, "metaclass is immutable");
-}
+ok($meta->is_immutable, "class is immutable");
+ok($meta->meta->is_immutable, "metaclass is immutable (immutable class)");
+is(Class::MOP::class_of($meta), $meta->meta,
+    "class_of and ->meta are the same on Foo's metaclass (immutable)");
+isa_ok(Class::MOP::class_of($meta), 'Moose::Meta::Class');
+ok($meta->meta->does_role('FooTrait'), "still does the trait after immutable");




More information about the Pkg-perl-cvs-commits mailing list