root/docs/yappo/20080515-yapcasia2008/with_hintbits.pm

package with_hintbits;
use strict;
use warnings;
my $hint_bits = 0x20000; # HINT_LOCALIZE_HH
sub import { $^H |= $hint_bits;
$^H{$_[0]} = ($_[1] || 'default') }
sub unimport { $^H &= ~ $hint_bits;
delete $^H{(shift)} }
1;