perl - JSON データのデコード

Question

これは私のPerlプログラムです

package ABCD;
use base qw/JSON::XS/;

my $json = '{"alphabet" : ["a:1", "b:2", "c:3", "d:4"],"number" : ["1:a","2:b"]}';
my $decoded = decode_json($json);

これを実行すると、次のようなエラーが発生します

&test::decode_jsontest.pm の 4 行目、 1 行目で未定義のサブルーチンが呼び出されました<STDIN>。

Answer 1

これを実行してみることができます：

use JSON::XS;
use Data::Dumper;

my $json = '{"alphabet" : ["a:1", "b:2", "c:3", "d:4"],"number" : ["1:a","2:b"]}';
my $decoded = decode_json($json);
print Dumper($json,$decoded);