Re^2: Invoking a method whose name is computed

You invoke Foo::bar_baz as function, not as method. For a method call, the object / class name implicitly added by perl is missing, so you have to add it manually:

Class->can("prefix_$name")->(Class,'first argument');
$object->can("prefix_$name")->($object,'first argument');
[download]

Hardly DRY. I prefer "wasting" a variable for composed method names:

my $method="prefix_$name";
Class->$method('first argument');
$object->$method('first argument');
[download]

Alexander

--
Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)

Comment on Re^2: Invoking a method whose name is computed Select or Download Code

Replies are listed 'Best First'.
Re^3: Invoking a method whose name is computed by GrandFather (Saint) on Oct 02, 2012 at 20:39 UTC
An advantage of the "wasted variable" (I prefer to think it is an "intelligently used variable") is that you can perform a little validation: `my $object = bless {hi => 'hello'}; for my $suffix ('x', 'y') { my $method = $object->can("prefix_$suffix"); $object->$method() if $method; } sub prefix_x { my ($self) = @_; print "$self->{hi} world\n"; }` [download] Update: elaborate code to better show intent. True laziness is hard work	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Invoking a method whose name is computed
by GrandFather (Saint) on Oct 02, 2012 at 20:39 UTC

An advantage of the "wasted variable" (I prefer to think it is an "intelligently used variable") is that you can perform a little validation:

my $object = bless {hi => 'hello'};

for my $suffix ('x', 'y') {
    my $method = $object->can("prefix_$suffix");
    $object->$method() if $method;
}


sub prefix_x {
    my ($self) = @_;
    
    print "$self->{hi} world\n";
}
[download]

Update: elaborate code to better show intent.

True laziness is hard work

[reply]
[d/l]