using no strict "refs"

[Billy Patton]

Here is a very small example of a larger amount of code.
use strict;
use warnings;
my $sub;

Pkg::a();
Pkg::b();
Pkg::c();

foreach $sub ( qw(a b c)) {
no strict "refs";
Pkg::${sub}(); <<<<< line 11
}


package Pkg;
use strict;
use warnings;
use Exporter;
sub a { print "a\n";}
sub b { print "b\n";}
sub c { print "c\n";}

In the real code a,b,c get called with data
I get the following after trying to execute:
Bad name after Pkg:: at x line 11.

 

[Paul Lalli]

Here is a very small example of a larger amount of code.
use strict;
use warnings;
my $sub;

Pkg::a();
Pkg::b();
Pkg::c();

foreach $sub ( qw(a b c)) {
no strict "refs";
Pkg::${sub}(); <<<<< line 11
}

You're trying to use a variable as a variable name (subroutines are
just another kind of variable, for our purposes here). Please read:
`perldoc -q "variable name"`

The way to do what you're trying to do is: &{"Pkg::$sub"}();

The RIGHT way to do it is to use a hash, and not disable strict refs:

my %sub_named = (
a => \&Pkg::a,
b => \&Pkg::b,
c => \&Pkg::c
);

foreach $sub ( qw(a b c)) {
$sub_named{$sub}->();
}


Paul Lalli

 

[Mumia W. (on aioe)]

foreach $sub ( qw(a b c)) {
no strict "refs";
Pkg::${sub}(); <<<<< line 11
"Pkg::$sub"->();

}

[...]

HTH