Reply to thread

Message: [QUOTE="Eric Schwartz, post: 4794249"] <snip rest of example> Ow. Stop hurting my brain like that. So assuming you wanted to store multiple bits of data, would Sick::Snake look something like: package Sick::Snake use Scalar::Util qw 'refaddr'; our @ISA = qw/Angry::Snake/; my %attr; sub set_shivering { my $snake = shift; $attr{refaddr $snake}{shivering} = shift; $snake; } sub set_sneezing { my $snake = shift; $attr{refaddr $snake}{sneezing} = shift; $snake; } sub shivering {...} sub sneezing {...} and so on? That's a very neat trick. Should I ever be forced to write OO in Perl, I will try to keep that in mind. Also, nice plug for Scalar::Util, which while not quite as nifty as List::Util, is still one of the more underappreciated modules in Perl, I think. -=Eric [/QUOTE]