Re^2: Dynamic Package Name & Subroutine Call

An alternative to no strict 'refs' would be:

foreach my $pkg ( @pkgs ) {
   my $hello = "Test::$pkg"->can('hello');
   $hello->() if $hello;
}
[download]

... because can returns a coderef. In the case of packages that have inheritance (@ISA) this will act slightly differently to &{'Test::' . $pkg . '::hello'}().

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

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

Replies are listed 'Best First'.
Re^3: Dynamic Package Name & Subroutine Call by ikegami (Patriarch) on Dec 16, 2012 at 13:57 UTC
`can` should be used for methods and only for methods, so that should be `my $full_pkg = "Test::".$pkg; my $hello = $full_pkg->can('hello'); $full_pkg->$hello(...); # Or: $hello->($full_pkg, ...);` [download] which simplifies to: `my $full_pkg = "Test::".$pkg; $full_pkg->hello(...);` [download] You don't even need `can` if the method name is variable. `$full_pkg->$method_name(...);` [download]	[reply] [d/l] [select]
Re^4: Dynamic Package Name & Subroutine Call by Anonymous Monk on Dec 17, 2012 at 08:51 UTC
can should be used for methods and only for methods that boat has sailed a long time ago :)	[reply]
Re^5: Dynamic Package Name & Subroutine Call by ikegami (Patriarch) on Dec 17, 2012 at 13:06 UTC
That makes no sense. This isn't a change; `can` has never done the right thing for non-methods.	[reply] [d/l]
Re^6: Dynamic Package Name & Subroutine Call by Anonymous Monk on Dec 17, 2012 at 13:10 UTC
Re^7: Dynamic Package Name & Subroutine Call by ikegami (Patriarch) on Dec 19, 2012 at 12:46 UTC
Some notes below your chosen depth have not been shown here