Changeset 9687 for lang/perl/WebService-Simple/branch/lwp-base/lib/WebService/Simple.pm

Timestamp:

04/18/08 16:58:49 (8 months ago)

Author:

daisuke

Message:

lang/perl/WebService-Simple; make the test accept a flickr API, and actually parse the response

Files:

• lang/perl/WebService-Simple/branch/lwp-base/lib/WebService/Simple.pm (modified) (2 diffs)

lang/perl/WebService-Simple/branch/lwp-base/lib/WebService/Simple.pm

@@ -5 +5 @@
 use warnings;
 use base qw(LWP::UserAgent Class::Data::ConfigHash);
+use WebService::Simple::Response;
 use UNIVERSAL::require;
 
@@ -75 +76 @@
         Carp::croak("request to $url failed");
     }
-    # まだできてない
-    # WebService::Simple::Response->new_from_response(
-    #   response => $response,
-    #   parser   => $self->reponse_parser
-    # );
-    return $response;
+
+    return WebService::Simple::Response->new_from_response(
+        response => $response,
+        parser   => $self->response_parser
+    );
 }