Help for this page

Select Code to Download

Select or download this

$who = $name || '(unknown)';
$greet = "#{getName($who)}#";
$greet =~ s{#\{(\w+)\(([^\)]+)\)\}#}{$obj->{"$1"}->($2)}eg;