Select Code to Download

my $h = TwoWayHash->new(100); # 100 is the "size", ignore for now

...
# dad
print $h->retrieveOneWay("R2L", "dad") # Right 2  Left
# mam

tie %r2l, $twowayhash, "R2L"; # right to left
tie %l2r, $twowayhash, "L2R"; # left to right

use strict;
use warnings;
...
}

1;

use strict;
use warnings;
...
}

is($h->retrieveOneWay("L2R", "abcd234"), undef, "L2R don't retrieve");