The idea of writing a module that could be called T::H::C was too good to ignore.
Don't trust anything this hash tells you :)
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;
Eureka! Give me a lever long enough ... Eppur si muove Mr. Watson – Come here – I want you Mary had a little lamb That's one small step for a man ... SCE to AUX I think I'll stop here
Results (214 votes). Check out past polls.