Select Code to Download

use strict;
use warnings;
...
    substr  => wrap('substr',\&m_substr),
    readl   => wrap('readline', \&readline),
})

              Rate  readl  subst unpack substr
readl   78783885/s     --   -17%   -18%   -24%
subst   95302528/s    21%     --    -1%    -8%
unpack  96105165/s    22%     1%     --    -8%
substr 103929656/s    32%     9%     8%     --

              Rate  subst  readl substr unpack
subst   81695687/s     --    -1%   -36%   -65%
readl   82899185/s     1%     --   -35%   -65%
substr 128382089/s    57%    55%     --   -46%
unpack 235800076/s   189%   184%    84%     --