json - OpenSip の Json in Perl エラー

Question

Perlのjsonとjson::PPの違いは何ですか?

openips で perl スクリプトを記述するときに Json および Json:PP を使用すると、このエラーが発生します

ERROR:core:XS_OpenSIPS__Message_log: 
perl warning: Prototype mismatch: sub main::decode_json ($) vs none.

これらのコードに問題があります:

my %postObject = ("callId" => $callID);
$postObject{'endTime'} = time() . "";
$postObject{'key'} = "12345@qwerty";
my $post_data = encode_json \%postObject;