Re: Can't Reference a Sub by Variable when using Strict

[Fletch]

Erm, because that's what use strict does. You either need to use coderefs (my %lists = ( stuff => \&test1, things => \&test2 );), or use the grandfathered goto syntax:

for my $i ( keys %lists ) {
  my $coderef = \&{ $i };
  &{ $coderef };
}

Read perldoc strict for more details.

[chromatic]

Did you try your code under strict? There's a symbolic reference of the same kind in the second line.

[broquaint]

Creating symbolic references to subroutines is quite valid under strictures e.g

use strict;

sub foo {
  print "It's all good.";
}

my $subref = \&{ "foo" };
&$subref;

__output__

It's all good.

[tachyon]

That's a bug not a feature :-)

C:\>perl -MO=Deparse test.pl
sub foo {
    print q[It's all good.];
}
my $subref = \&{'foo';};
&$subref;

[Fletch]

freebie:~ 1085> cat bar                                               
+ 10:08:26
use strict;

my %lists;

for my $i ( keys %lists ) {
  my $coderef = \&{ $i };
  &{ $coderef }();
}
freebie:~ 1086> perl -c bar                                           
+ 10:08:28
bar syntax OK

This is perfectly valid due to the goto exception I mentioned. If you read perldoc strict:

             There is one exception to this rule:

                 $bar = \&{'foo'};
                 &$bar;

             is allowed so that "goto &$AUTOLOAD" would not break unde
+r stricture.

[chromatic]

So it is; thanks!