Есть ли способ принудительного цитирования чисел в модуле Perl JSON 1.x?

Question

Тестовый скрипт

use JSON;
$\ = "\n";
my $big_number = '12345678901234567890123456';
print $big_number;
print objToJson([$big_number]);

Вывод (JSON 1.07, Perl 5.8.7)

12345678901234567890123456
[12345678901234567890123456]

Вывод (JSON 2.15, Perl 5.10.1)

12345678901234567890123456
["12345678901234567890123456"]

Мне бы хотелось, чтобы при использовании JSON 1.x строки, представляющие числа, были заключены в кавычки так же, как при использовании JSON 2.x.Есть ли способ направить модуль Perl JSON 1.x, чтобы сделать это?

Answer 1

Установите AUTOCONVERT в ложное значение, т. Е .:

$JSON::AUTOCONVERT = 0;