sub _add_meta_method {
my $self = shift;
+ my ($name) = @_;
my $existing_method = $self->can('find_method_by_name')
- ? $self->find_method_by_name('meta')
- : $self->get_method('meta');
+ ? $self->find_method_by_name($name)
+ : $self->get_method($name);
return if $existing_method
&& $existing_method->isa($self->_meta_method_class);
$self->add_method(
- 'meta' => $self->_meta_method_class->wrap(
- name => 'meta',
+ $name => $self->_meta_method_class->wrap(
+ name => $name,
package_name => $self->name,
associated_metaclass => $self,
)