Changeset 16133 for lang/perl/Net-Pathtraq

Timestamp:

07/23/08 16:54:23 (5 years ago)

Author:

hidek

Message:

switch JSON::Any to JSON

Location:

lang/perl/Net-Pathtraq/trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/Net/Pathtraq.pm (modified) (2 diffs)

lang/perl/Net-Pathtraq/trunk/Makefile.PL

@@ -6 +6 @@
 LWP::UserAgent
 URI
-JSON::Any
+JSON
 Carp
 /);

lang/perl/Net-Pathtraq/trunk/lib/Net/Pathtraq.pm

@@ -9 +9 @@
 use LWP::UserAgent;
 use URI;
-use JSON::Any;
+use JSON;
 use Carp;
 
@@ -75 +75 @@
         die $res->status_line;
     }
-    return $res->is_success ? JSON::Any->jsonToObj( $res->content ) : undef;
+    return $res->is_success ? from_json( $res->content ) : undef;
 }