Changeset 1167 for lang/perl/Net-Wassr

Show
Ignore:
Timestamp:
11/06/07 11:02:57 (7 years ago)
Author:
tokuhirom
Message:

lang/perl/Net-Wassr: oops.

Location:
lang/perl/Net-Wassr/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Net-Wassr/trunk/lib/Net/Wassr/TODO.pm

    r1166 r1167  
    3838        my $res = $self->{ua}->get("$BASE_URL/list.json?page=$page"); 
    3939        if ($res->is_success) { 
    40             my $dat = JSON::Syck::Load($res->content); 
     40            my $dat = JSON::Any->jsonToObj($res->content); 
    4141            if ($dat->size()) { 
    4242                $ret->push( @$dat ); 
  • lang/perl/Net-Wassr/trunk/t/00_compile.t

    r1166 r1167  
    11use strict; 
    22use warnings; 
    3 use Test::More tests => 1; 
     3use Test::More tests => 2; 
    44 
    5 BEGIN { use_ok 'Net::Wassr' } 
     5BEGIN { use_ok 'Net::Wassr'; use_ok 'Net::Wassr::TODO'; }