sub MODIFY_HASH_ATTRIBUTES {
    my ($package, $referent, @attrs) = @_;
...