Logo Questions Linux Laravel Mysql Ubuntu Git Menu
 

How can I call a function name defined in a literal string in perl?

If $name='name' why does $object_ref->$name work but not $object_ref->('name')?

like image 788
JD. Avatar asked Jan 30 '12 22:01

JD.


2 Answers

In Perl, the symbol -> has two meanings. If followed by a bareword $obj->name or a scalar $obj->$name then -> means method call.

If instead the -> is followed by an opening brace, then it is a dereference, according to the following table:

$obj->(...) # dereference as code,  which calls the subroutine
$obj->[...] # dereference as array, which accesses an element
$obj->{...} # dereference as hash,  which accesses an element

When -> is dereferencing a value, perl will check to see if the value is either the type indicated by the brace, or if it can be coerced into that type via overloading. So the ->( in your example means perl will try to convert $object_ref into a code reference, and will probably fail, throwing an error.

If the -> is a method call, then perl does something like:

if (reftype $name eq 'CODE') {  # if $name is code, ignore $object_ref's type
    $name->($object_ref)        # call the coderef in $name, with $object_ref
}                               # followed by any other arguments

elsif (my $code = $object_ref->can($name)) { # otherwise, try to look up the
    # coderef for the method named $name in $object_ref's namespace and then
    $code->($object_ref)  # call it with the object and any other arguments
}
else {die "no method $name on $object_ref"}

Just to make things clearer:

sub foo {"foo(@_)"}

my $foo = \&foo;

say foo 'bar';     # 'foo(bar)'
say $foo->('bar'); # 'foo(bar)'
say 'bar'->$foo;   # 'foo(bar)'

and

sub Foo::bar {"Foo::bar(@_)"}
my $obj = bless [] => 'Foo';

my $method = 'bar';

say $obj->bar(1);     # Foo::bar($obj, 1)
say $obj->$method(1); # Foo::bar($obj, 1)
like image 121
Eric Strom Avatar answered Oct 23 '22 11:10

Eric Strom


$obj->$name       # Method call with no args
$obj->name        # Method call with no args
$obj->$name()     # Method call with no args
$obj->name()      # Method call with no args

$sub->('name')    # Sub call (via ref) with one arg.
sub('name')       # Sub call with one arg.
like image 41
ikegami Avatar answered Oct 23 '22 09:10

ikegami