name => 'required_methods',
attr_reader => 'get_required_methods_map',
methods => {
- remove => 'remove_required_methods',
- get_keys => 'get_required_method_list',
- existence => 'requires_method',
+ remove => 'remove_required_methods',
+ get_values => 'get_required_method_list',
+ existence => 'requires_method',
}
},
{
keys %{$self->$attr_reader};
}) if exists $methods->{get_keys};
+ $META->add_method($methods->{get_values} => sub {
+ my ($self) = @_;
+ values %{$self->$attr_reader};
+ }) if exists $methods->{get_values};
+
$META->add_method($methods->{get} => sub {
my ($self, $name) = @_;
$self->$attr_reader->{$name}