Select Code to Download

use constant SELF => 0;
use constant VALUE=> 1;
sub setx{
    $_[SELF]->{_x} = $_[VALUE];
}

#! perl -sw
use strict;
...
constant 3.15/s      25%      14%       0%       --

c:\test>