Re: Object get method as variable name

[blue_cowdawg]

in reply to Object get method as variable name

Consider the following:

#!/usr/bin/perl -w 
use strict;

my $s = new speak();

foreach my $critter(qw/ cat dog spider /){
        $s->$critter();
}

exit(0);

package speak;

sub new { 
        bless {},"speak";
}

sub cat { 
        print "meow!\n";
}

sub dog { 
        print "woof!\n";
}

sub spider {
        print "arf!\n";
}

1;

which may give you some enlightenment that you seek.

When run it yields:

$ ./doit.pl 
meow!
woof!
arf!

Hope this is of some help.