Help for this page

Select Code to Download

Select or download this

$ perl -MB -E 'my $x = 1; say B::class(B::svref_2object(\$x)) eq "IV" 
+? "yes" : "no" '
yes
...
$ perl -MB -E 'my $x = "1"; say B::class(B::svref_2object(\$x)) eq "IV
+" ? "yes" : "no" '
no

Select or download this

use strict;
use warnings;
...
iv    799/s    --  -93%  -95%
lln 11821/s 1379%    --  -20%
ref 14768/s 1748%   25%    --