Changeset 10070

Timestamp:

04/21/08 18:51:22 (6 months ago)

Author:

daisuke

Message:

fix response_parser input parameter, so it can be specified by just a name

Files:

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

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

@@ -33 +33 @@
         Carp::croak("base_url is required");
     my $basic_params = delete $args{params} || delete $args{param} || {};
-    my $response_parser = delete $args{response_parser};
-    if (! $response_parser) {
-        my $config = $class->config->{response_parser};
+    my $response_parser = delete $args{response_parser} ||
+        $class->config->{response_parser};
+    if (! $response_parser || ! eval { $response_parser->isa('WebService::Simple::Parser') }) {
+        my $config = $response_parser || $class->config->{response_parser};
         if (! ref $config) {
             $config = { module => $config };