my $method_metaclass = $self->method_metaclass;
load_class($method_metaclass);
- my $package = $self->name;
- return $method_metaclass->new(
- body => $package->can($method_name),
- name => $method_name,
- package => $package,
+ return $method_metaclass->wrap(
+ body => $self->get_method_body($method_name),
+ name => $method_name,
+ package => $self->name,
+ associated_metaclass => $self,
);
}