version bump for 1.9903

[gitmo/Moose.git] / lib / Moose / Meta / Role.pm

diff --git a/lib/Moose/Meta/Role.pm b/lib/Moose/Meta/Role.pm
index 0c0078e..7dfe6a5 100644 (file)
--- a/lib/Moose/Meta/Role.pm
+++ b/lib/Moose/Meta/Role.pm
@@ -9,10 +9,6 @@ use Scalar::Util 'blessed';
 use Carp         'confess';
 use Devel::GlobalDestruction 'in_global_destruction';
 
-our $VERSION   = '1.9900';
-$VERSION = eval $VERSION;
-our $AUTHORITY = 'cpan:STEVAN';
-
 use Moose::Meta::Class;
 use Moose::Meta::Role::Attribute;
 use Moose::Meta::Role::Method;
@@ -231,6 +227,10 @@ sub _restore_metaobjects_from {
 
     $self->_restore_metamethods_from($old_meta);
     $self->_restore_metaattributes_from($old_meta);
+
+    for my $role ( @{ $old_meta->get_roles } ) {
+        $self->add_role($role);
+    }
 }
 
 sub add_attribute {
@@ -750,14 +750,12 @@ sub consumers {
 
 1;
 
+# ABSTRACT: The Moose Role metaclass
+
 __END__
 
 =pod
 
-=head1 NAME
-
-Moose::Meta::Role - The Moose Role metaclass
-
 =head1 DESCRIPTION
 
 This class is a subclass of L<Class::MOP::Module> that provides
@@ -1019,17 +1017,4 @@ This will return a L<Class::MOP::Class> instance for this class.
 
 See L<Moose/BUGS> for details on reporting bugs.
 
-=head1 AUTHOR
-
-Stevan Little E<lt>stevan@iinteractive.comE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2006-2010 by Infinity Interactive, Inc.
-
-L<http://www.iinteractive.com>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
 =cut