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

package normal;
use strict;
use warnings;
sub import { $^H{$_[0]} = ($_[1] || 'default') }
sub unimport { delete $^H{(shift)} }
sub hinthash { (caller(0))[10] }
1;