Tied Hashes

[Douglas Wilson]

~sdpm~
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

sub TIEHASH {
  my $class = shift;
  my $sub = shift;
  bless \$sub, $class
}

sub FETCH {
  my $self = shift;
  $$self->(@_);
}

package main;

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

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

~sdpm~

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.