# hash_locked Report whether the hash’s keyset is currently locked. ## Synopsis ```perl hash_locked(%hash) and print "restricted\n"; ``` Returns `1` when `lock_keys` (or an equivalent) has been applied to the hash, `0` otherwise. Value-level locks alone do not count - this only reports the keyset restriction.