1diff --git a/JSON-RPC-0.96/lib/JSON/RPC/Server.pm b/JSON-RPC-0.96/lib/JSON/RPC/Server.pm
2index df483bb..a1c51cf 100644
3--- JSON-RPC-0.96/lib/JSON/RPC/Server.pm
4+++ JSON-RPC-0.96/lib/JSON/RPC/Server.pm
5@@ -4,7 +4,7 @@
6 ##############################################################################
7 
8 use strict;
9-use JSON ();
10+use JSON::PP;
11 use Carp ();
12 
13 use HTTP::Request ();
14@@ -43,7 +43,7 @@ BEGIN {
15 
16 
17 sub create_json_coder {
18-    JSON->new->utf8; # assumes UTF8
19+    JSON::PP->new->utf8; # assumes UTF8
20 }
21 
22 
23@@ -205,8 +205,8 @@ sub _handle {
24     my $result;
25 
26     if ($obj->{version}) {
27-        $result = ref $params ? eval q| $procedure->{code}->($self, $params) |
28-                              : eval q| $procedure->{code}->($self) |
29+        $result = ref $params ? eval q| $procedure->{code}->($params) |
30+                              : eval q| $procedure->{code}->() |
31                               ;
32     }
33     else {
34@@ -217,7 +217,7 @@ sub _handle {
35         else {
36             $params[0] = $params;
37         }
38-        $result = eval q| $procedure->{code}->($self, @params) |;
39+        $result = eval q| $procedure->{code}->(@params) |;
40     }
41 
42 
43@@ -571,7 +571,7 @@ An error code number in your procedure is an integer between 501 and 899.
44 Setter/Getter to json encoder/decoder object.
45 The default value is L<JSON> object in the below way:
46 
47- JSON->new->utf8
48+ JSON::PP->new->utf8
49 
50 In your procedure, changes its behaviour.
51 
52