1package MyClass::Attribute::Alias; 2 3use strict; 4use warnings; 5use base 'Class::Component::Attribute'; 6 7sub register { 8 my($class, $plugin, $c, $method, $value) = @_; 9 $c->register_method( $value => { plugin => $plugin, method => $method } ); 10} 11 121; 13