return $attr;
};
+ around 'canonicalize_args' => sub {\r
+ my ($next, $self, $name, %args) = @_;\r
+\r
+ %args = $next->($self, $name, %args);\r
+ $args{is} = 'rw' unless exists $args{is};\r
+\r
+ return %args;\r
+ };\r
+
package # hide me from search.cpan.org
Mouse::Meta::Attribute::Custom::Number;
sub register_implementation { 'MouseX::AttributeHelpers::Number' }
package Klass;
use Mouse;
- has 'i' => (
+ has 'number' => (
metaclass => 'Number',
- is => 'rw',
isa => 'Int',
provides => {
'add' => 'add_number'
);
};
-can_ok 'Klass', 'add_number';
-my $k = Klass->new(i=>3);
+can_ok 'Klass', 'add_number', 'number';
+my $k = Klass->new(number => 3);
$k->add_number(4);
-is $k->i, 7;
+is $k->number, 7;