my $add_modifier_method = 'add_' . $modifier_name . '_method_modifier';
if ( my $method_modifier_type = ref( @{$args}[0] ) ) {
if ( $method_modifier_type eq 'Regexp' ) {
- my @all_methods = $meta->compute_all_applicable_methods;
+ my @all_methods = $meta->get_all_methods;
my @matched_methods
- = grep { $_->{name} =~ @{$args}[0] } @all_methods;
- $meta->$add_modifier_method( $_->{name}, $code )
+ = grep { $_->name =~ @{$args}[0] } @all_methods;
+ $meta->$add_modifier_method( $_->name, $code )
for @matched_methods;
}
}