Select Code to Download

use warnings;
use strict;
...

my $freturn = $function->('hi there');
print "function return: `$freturn' \n";

>perl t_create_f_PM.pl
param: hi there   common: fooble   private: xpto
function return: `hi there;fooble;xpto'

>perl t_create_f_PM.pl
Use of uninitialized value in concatenation (.) or string at (eval 1) 
+line 2.
param: hi there   common:    private: xpto
Use of uninitialized value in join or string at (eval 1) line 3.
function return: `hi there;;xpto'