package MyClass::Attribute::Test;

use strict;
use warnings;
use base 'Class::Component::Attribute';

sub register {
    my($class, $plugin, $c, $method, $value, $code) = @_;

    no strict 'refs'; 
    no warnings 'redefine';
    my $cname = ref($plugin) or return;
    *{"$cname\::$method"} = sub {
        $code->(@_);
        'attribute return';
    };
}

1;