package Tie::Hash::Cannabinol; use strict; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); require Exporter; require Tie::Hash; @ISA = qw(Exporter Tie::StdHash); @EXPORT = qw(); @EXPORT_OK =(); $VERSION = '0.01'; sub FETCH { my $self = shift; my @keys = keys %$self; return $self->{$keys[rand $#keys]}; } sub EXISTS { return rand > 0.5; } 1;