# perl -MBenchmark=/./ -Iblib/arch -Iblib/lib -Ilib -MB=svref_2object -MScalar::Length -Mstrict -Mwarnings -Mutf8 -CSD -le 'my ($in, $out) = q(привет); cmpthese -2 => { xs => s
ub { $out = Scalar::Length::sv_length($in) }, bytes => sub { {use bytes; $out = length $in } }, utf8 => sub { $out = utf8::upgrade($in) }, encode => sub { use Encode q(encode); $out = length(encode(q(UTF-8), $in
)) }, svref => sub { $out = svref_2object(\$in)->CUR }, }'
            Rate encode  svref  bytes     xs   utf8
encode   470013/s     --   -87%   -96%   -98%   -98%
svref   3485239/s   642%     --   -67%   -82%   -82%
bytes  10505116/s  2135%   201%     --   -46%   -47%
xs     19435213/s  4035%   458%    85%     --    -2%
utf8   19881662/s  4130%   470%    89%     2%     --