perl - CPAN_JSON 的意外行为

Question

尝试通过以下方式使用 CPAN_JSON：

my $integer = 200;

JSON->new->allow_nonref->encode($integer);

并得到以下错误；

Can't locate object method "FLAGS" via package "B::IV"

来自（哪里：

https://metacpan.org/source/MAKAMAKA/JSON-2.90/lib/JSON/backportPP.pm#L408

运行 perl 5.8，我认为B总是包含核心包。任何想法为什么会发生这种情况？

编辑：

perl -v | grep This

这是 perl，v5.10.1

perl -MJSON::backportPP -le'print $JSON::backportPP::VERSION || $JSON::PP::VERSION'

2.27200

perl -mB -le'my $value = 1; my $b_obj = B::svref_2object(\$value); print $b_obj->FLAGS;'

266498

标签： perl