Select Code to Download

package Class_Inside_Out;
use Scalar::Util qw(refaddr);
...
    my $key = shift;
    join " " => $name {$$key}, $colour {$$key}, $age {$$key};
}

             Rate     closure  inside_out traditional
closure     177/s          --        -43%        -45%
inside_out  313/s         76%          --         -3%
traditional 321/s         81%          3%          --