Changeset 18443 for lang/perl

Show
Ignore:
Timestamp:
08/30/08 01:52:26 (3 months ago)
Author:
tokuhirom
Message:

I hate JSON::Any

Location:
lang/perl/POE-Component-Client-Twitter/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/POE-Component-Client-Twitter/trunk/Makefile.PL

    r4257 r18443  
    44 
    55requires $_ for (qw/ HTTP::Request HTTP::Date POE POE::Component::Client::HTTP URI /); 
    6 requires 'JSON::Any' => 1.15; 
     6requires 'JSON' => 2.12; 
    77 
    88build_requires 'Test::More'; 

  • lang/perl/POE-Component-Client-Twitter/trunk/lib/POE/Component/Client/Twitter.pm

    r1179 r18443  
    77use HTTP::Request::Common; 
    88use HTTP::Date (); 
    9 use JSON::Any; 
     9use JSON qw/decode_json/; 
    1010use POE qw( Component::Client::HTTP ); 
    1111use URI; 
    … …  
    125125    my ($kernel,$heap, $response) = @_[KERNEL,HEAP,ARG0]; 
    126126    $kernel->yield(notify => 'update_success', 
    127         JSON::Any->jsonToObj($response->content) 
     127        decode_json($response->content) 
    128128    ); 
    129129} 
    … …  
    133133 
    134134   my $data; 
    135    $data = JSON::Any->jsonToObj($response->content) if $response->is_success; 
     135   $data = decode_json($response->content) if $response->is_success; 
    136136   $kernel->yield(notify => 'friend_timeline_success', $data); 
    137137}