```{index} single: hash_locked; Hash::Util function ``` ```{index} single: Hash::Util::hash_locked; Perl function ``` # 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.