- or download this
package TieHashCI;
use Tie::Hash;
...
}
1;
- or download this
use TieHashCI;
my %data = (); tie (%data, 'TieHashCI');
- or download this
BEGIN {
use FindBin qw($Bin);
use lib "$Bin/lib"; # if TieHashCI is in ./lib
} # BEGIN
use TieHashCI;