Anonymous user
Send an unknown method call: Difference between revisions
added perl
(→{{header|Perl 6}}: add) |
(added perl) |
||
Line 17:
example[name](5) # => 47</lang>
=={{header|Perl
<lang perl>package Example;
sub new {
bless {}
}
sub foo {
my ($self, $x) = @_;
return 42 + $x;
}
package main;
my $name = "foo";
print Example->new->$name(5), "\n"; # prints "47"</lang>
=={{header|Python}}==
String literal "foo" may be replaced by any expression resulting in a string
|