Re: Dynamic Package Name & Subroutine Call

By George, I think I just figured it out:

CHANGE:

    Test::$pkg::hello($pkg);
[download]

TO:

    {
        no strict 'refs';
        &{"Test::" . $pkg. "::hello"}($pkg);
    }
[download]

Comment on Re: Dynamic Package Name & Subroutine Call Select or Download Code

Replies are listed 'Best First'.
Re^2: Dynamic Package Name & Subroutine Call by ikegami (Patriarch) on Dec 16, 2012 at 13:55 UTC
The following works with strict on: `(\&{"Test::${pkg}::hello"})->($pkg);` [download] The same, but more readable: `my $sub = \&{"Test::${pkg}::hello"}; $sub->($pkg);` [download] Then again, explicitly using `no strict 'refs';` might be better a good thing. That said, it looks like you have a method call (to which you're passing the wrong package name). If so, you should be using `("Test::".$pkg)->hello(...);` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Dynamic Package Name & Subroutine Call
by ikegami (Patriarch) on Dec 16, 2012 at 13:55 UTC

(\&{"Test::${pkg}::hello"})->($pkg);
[download]

my $sub = \&{"Test::${pkg}::hello"};
$sub->($pkg);
[download]

Then again, explicitly using no strict 'refs'; might be better a good thing.

That said, it looks like you have a method call (to which you're passing the wrong package name). If so, you should be using

("Test::".$pkg)->hello(...);
[download]