Fix meta() and initialize() for more compatibility

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

diff --git a/lib/Mouse.pm b/lib/Mouse.pm
index ceb4cc7..a78d85b 100644 (file)
--- a/lib/Mouse.pm
+++ b/lib/Mouse.pm
@@ -4,7 +4,7 @@ use warnings;
 use 5.006;
 use base 'Exporter';
 
-our $VERSION = '0.27';
+our $VERSION = '0.29';
 
 use Carp 'confess';
 use Scalar::Util 'blessed';
@@ -122,7 +122,9 @@ sub init_meta {
     {
         no strict 'refs';
         no warnings 'redefine';
-        *{$class.'::meta'} = sub { $meta };
+        *{$class.'::meta'} = sub {
+            return Mouse::Meta::Class->initialize(ref($_[0]) || $_[0]);
+        };
     }
 
     return $meta;
@@ -308,6 +310,12 @@ should upgrade to Moose. We don't need two parallel sets of extensions!
 If you really must write a Mouse extension, please contact the Moose mailing
 list or #moose on IRC beforehand.
 
+=head2 Maintenance
+
+The original author of this module has mostly stepped down from maintaining
+Mouse. See L<http://www.nntp.perl.org/group/perl.moose/2009/04/msg653.html>.
+If you would like to help maintain this module, please get in touch with us.
+
 =head1 KEYWORDS
 
 =head2 meta -> Mouse::Meta::Class
@@ -504,7 +512,9 @@ L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Mouse>.
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright 2008 Shawn M Moore.
+Copyright 2008-2009 Infinity Interactive, Inc.
+
+http://www.iinteractive.com/
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.