Tied Hashes
Douglas Wilson
dgwilson1 at cox.net
Wed Dec 17 23:21:49 CST 2003
~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.
More information about the San-Diego-pm
mailing list