use Carp ();
use Mouse::Meta::TypeConstraint;
-use Mouse::Meta::Method::Accessor;
+
+#use Mouse::Meta::Method::Accessor;
+use Mouse::Meta::Method::Delegation;
sub _process_options{
return;
}
+
+sub delegation_metaclass() { 'Mouse::Meta::Method::Delegation' }
+
sub install_accessors{
my($attribute) = @_;
# install delegation
if(exists $attribute->{handles}){
+ my $delegation_class = $attribute->delegation_metaclass;
my %handles = $attribute->_canonicalize_handles($attribute->{handles});
my $reader = $attribute->get_read_method_ref;
while(my($handle_name, $method_to_call) = each %handles){
- my $code = $accessor_class->_generate_delegation($attribute, $metaclass,
+ my $code = $delegation_class->_generate_delegation($attribute, $metaclass,
$reader, $handle_name, $method_to_call);
$metaclass->add_method($handle_name => $code);