4 use Test::More tests => 7;
8 package MouseX::AttributeHelpers::Number;
10 extends 'Mouse::Meta::Attribute';
17 after 'install_accessors' => sub{
20 my %provides = %{$attr->{provides}};
21 my $method_constructors = {
23 my ($attr, $name) = @_;
25 $_[0]->$name( $_[0]->$name() + $_[1])
29 while (my ($name, $aliased) = each %provides) {
30 $attr->associated_class->add_method(
31 $aliased => $method_constructors->{$name}->($attr, $attr->name)
38 Mouse::Meta::Attribute::Custom::MyNumber;
39 sub register_implementation { 'MouseX::AttributeHelpers::Number' }
47 metaclass => 'MyNumber',
60 metaclass => 'MyNumber',
64 'add' => 'add_number_j'
81 can_ok 'Klass1', 'add_number';
82 my $k = Klass1->new(i=>3);
89 can_ok 'Klass2', 'f_m';
90 can_ok 'Klass2', 'b_m';
91 can_ok 'Klass2', 'add_number';
92 can_ok 'Klass2', 'add_number_j';
93 my $k = Klass2->new(i=>3);