From: gfx <gfuji@cpan.org>
Date: Mon, 28 Sep 2009 00:17:31 +0000 (+0900)
Subject: Fix AUTHORS in pod for Module::Install to recognize e-mail addresses
X-Git-Tag: 0.37~10
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=434ca2692227b28f133617feac9defae11627b39;p=gitmo%2FMouse.git

Fix AUTHORS in pod for Module::Install to recognize e-mail addresses
---

diff --git a/lib/Mouse.pm b/lib/Mouse.pm
index 69c012f..4f2345d 100644
--- a/lib/Mouse.pm
+++ b/lib/Mouse.pm
@@ -454,9 +454,9 @@ L<Class::MOP>
 
 =head1 AUTHORS
 
-Shawn M Moore, C<< <sartak at gmail.com> >>
+Shawn M Moore, E<lt>sartak at gmail.comE<gt>
 
-Yuval Kogman, C<< <nothingmuch at woobling.org> >>
+Yuval Kogman, E<lt>nothingmuch at woobling.orgE<gt>
 
 tokuhirom
 
@@ -464,7 +464,7 @@ Yappo
 
 wu-lee
 
-Goro Fuji (gfx) C<< <gfuji at cpan.org> >>
+Goro Fuji (gfx) E<lt>gfuji at cpan.orgE<gt>
 
 with plenty of code borrowed from L<Class::MOP> and L<Moose>
 
diff --git a/t/990_deprecated/044-attribute-metaclass.t b/t/990_deprecated/044-attribute-metaclass.t
index bb10b1e..0701c93 100644
--- a/t/990_deprecated/044-attribute-metaclass.t
+++ b/t/990_deprecated/044-attribute-metaclass.t
@@ -31,6 +31,15 @@ do {
         return $attr;
     };
 
+    around 'canonicalize_args' => sub {
+        my ($next, $self, $name, %args) = @_;
+
+        %args = $next->($self, $name, %args);
+        $args{is}  = 'rw'               unless exists $args{is};
+
+        return %args;
+    };
+
     package # hide me from search.cpan.org
         Mouse::Meta::Attribute::Custom::Number;
     sub register_implementation { 'MouseX::AttributeHelpers::Number' }
@@ -40,9 +49,8 @@ do {
     package Klass;
     use Mouse;
 
-    has 'i' => (
+    has 'number' => (
         metaclass => 'Number',
-        is => 'rw',
         isa => 'Int',
         provides => {
             'add' => 'add_number'
@@ -50,8 +58,8 @@ do {
     );
 };
 
-can_ok 'Klass', 'add_number';
+can_ok 'Klass', 'add_number', 'number';
 my $k = Klass->new(i=>3);
 $k->add_number(4);
-is $k->i, 7;
+is $k->number, 7;