Tied Hashes

Douglas Wilson dgwilson1 at cox.net
Wed Dec 17 23:21:49 CST 2003

Driving home from the meeting last night, I had nothing better to do
than think about tied hashes, and another way to implement that
'tied hash as a substitute for a function call' (that's what I'm calling
it anyway :-)

I figure why make a class for just implementing one function; why not
implement a class and pass in the function:

package Tie::Hash::Sub

  my $class = shift;
  my $sub = shift;
  bless \$sub, $class

sub FETCH {
  my $self = shift;

package main;

tie my %hi_bye, 'Tie::Hash::Sub', sub { "hello @_ and goodbye" };

print "I said $hi_bye{fred}\n";


The posting address is: san-diego-pm-list at hfb.pm.org

List requests should be sent to: majordomo at hfb.pm.org

If you ever want to remove yourself from this mailing list,
you can send mail to <majordomo at happyfunball.pm.org> with the following
command in the body of your email message:

    unsubscribe san-diego-pm-list

If you ever need to get in contact with the owner of the list,
(if you have trouble unsubscribing, or have questions about the
list itself) send email to <owner-san-diego-pm-list at happyfunball.pm.org> .
This is the general rule for most mailing lists when you need
to contact a human.

More information about the San-Diego-pm mailing list