##
sub MODIFY_HASH_ATTRIBUTES {
my ($package, $referent, @attrs) = @_;
...
##
##
if ($getter = _extract_get($config)) {
no strict 'refs';
*{$package.'::get_'.$getter} = sub {
return $referent->{ID($_[0])};
}
}