Select Code to Download

package Person {
    sub new{ my $p = shift; bless { @_ }, $p }
    sub name{ $_[0]->{name } }
    sub title{ $_[0]->{title} }
}

use v5.14;
use strict;
...
    functional => \&functional,
    x          => \&x,
});

C:\test>date /t & time/t && junk87
24/10/2012
...
functional  471/s       149%       109%         --       -57%
x          1101/s       482%       388%       134%         --