Select Code to Download

#!/usr/bin/perl -w

package Tie::Hash::Test;
...
tie my %hash, 'Tie::Hash::Test', 'one', 'two', 'three';

print join(':', keys %hash), "\n";

one:three:two

#!/usr/bin/perl -w

package Tie::Hash::Test;
...
my %hash : Test('one', 'two', 'three');

print join(':', keys %hash), "\n";

ARRAY(0x80f551c)