Select Code to Download

          Rate     tie  mutate mutate2 getnset   naked
tie     77.4/s      --    -27%    -36%    -54%    -93%
...
mutate2  120/s     55%     13%      --    -29%    -90%
getnset  169/s    118%     58%     40%      --    -86%
naked   1181/s   1426%   1007%    882%    601%      --

#! perl
use strict;
...
  &{sub { $ob->mutate($ob->mutate + 1) for 1..100 }};
  print $ob->mutate, "\n";
}