note
VinsWorldcom
<p>That's OK, from examples above:</p>
<c>
use strict;
use warnings;
package Object;
sub new { return bless \{} }
sub foo { printf "hello foo = %s\n", ( caller(0) )[3]; }
sub bar { printf "hello bar = %s\n", ( caller(0) )[3]; }
package main;
my $someObject = Object->new();
my $someCondition = 0;
my $funcname = ( $someCondition ? 'foo' : 'bar' );
$someObject->$funcname($funcname);
$someCondition = 1;
$funcname = ( $someCondition ? 'foo' : 'bar' );
$someObject->$funcname($funcname);
</c>
1232013
1232020