Help for this page

Select Code to Download


  1. or download this
    package Class_Inside_Out;
    use Scalar::Util qw(refaddr);
    ...
        my $key = shift;
        join " " => $name {$$key}, $colour {$$key}, $age {$$key};
    }
    
  2. or download this
                 Rate     closure  inside_out traditional
    closure     177/s          --        -43%        -45%
    inside_out  313/s         76%          --         -3%
    traditional 321/s         81%          3%          --