[Kc] quick and dirty hash that echoes the keys as the values

[David Nicol]

 {
     package QUAD_echo_hash;
     sub TIEHASH{ bless {} }
     sub FIRSTKEY { undef }
     # return the text of the key
     sub FETCH { $_[1] }
 }
 tie my %echo_hash, 'QUAD_echo_hash';

handy for writing the loader after the accessor is complete.


-- 
the courts of justice shall be open to every person, and certain remedy
afforded for every injury to person, property or character, and that right
and justice shall be administered without sale, denial or delay. --
Missouri Constitution, Art. I, Sec. 14
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/kc/attachments/20170403/b78acc01/attachment.html>