Send an unknown method call: Difference between revisions
Content added Content deleted
(→{{header|Perl 6}}: add) |
(added perl) |
||
| Line 17: | Line 17: | ||
example[name](5) # => 47</lang> |
example[name](5) # => 47</lang> |
||
=={{header|Perl |
=={{header|Perl}}== |
||
<lang perl>package Example; |
|||
<lang perl6>$object."$methname"(5)</lang> |
|||
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}}== |
=={{header|Python}}== |
||
String literal "foo" may be replaced by any expression resulting in a string |
String literal "foo" may be replaced by any expression resulting in a string |
||