Changeset 12871 for lang/perl/WebService-Simple/trunk/lib/WebService/Simple.pm

Timestamp:

05/31/08 03:05:29 (6 months ago)

Author:

yusukebe

Message:

request_url メソッドの引数を変更

Files:

• lang/perl/WebService-Simple/trunk/lib/WebService/Simple.pm (modified) (6 diffs)

lang/perl/WebService-Simple/trunk/lib/WebService/Simple.pm

@@ -29 +29 @@
         Carp::croak("base_url is required");
     my $basic_params = delete $args{params} || delete $args{param} || {};
+    my $debug  = delete $args{debug} || 0;
+
     my $response_parser = delete $args{response_parser} ||
         $class->config->{response_parser};
@@ -67 +69 @@
     $self->{response_parser} = $response_parser;
     $self->{cache} = $cache;
+    $self->{debug} = $debug;
     return $self;
 }
@@ -115 +118 @@
 
 sub request_url {
-    my ($self, $url, %extra) = @_;
-    my $uri = URI->new($self->base_url);
-
-    if($url){
-        $url =~ s!^/!!;
-        $uri->path( $uri->path . $url);
-    }
-
-    map { utf8::encode($extra{$_}) if utf8::is_utf8($extra{$_}) } keys %extra;
-    $uri->query_form( %{$self->basic_params}, %extra );
-
-    return $uri;
-}
-
-sub get
-{
     my $self = shift;
     my ($url, %extra);
@@ -144 +131 @@
     }
 
-    my $uri = $self->request_url($url, %extra);
+    my $uri = URI->new($self->base_url);
+    if($url){
+        $url =~ s!^/!!;
+        $uri->path( $uri->path . $url);
+    }
+
+    map { utf8::encode($extra{$_}) if utf8::is_utf8($extra{$_}) } keys %extra;
+    $uri->query_form( %{$self->basic_params}, %extra );
+
+    return $uri;
+}
+
+sub get {
+    my $self = shift;
+
+    my $uri = $self->request_url(@_);
+    print  "Request URL is $uri\n" if $self->{debug};
 
     my @headers = @_;
@@ -230 +233 @@
     my $flickr = WebService::Simple->new(
         base_url => "http://api.flickr.com/services/rest/",
-        param    => { api_key => "your_api_key", }
+        param    => { api_key => "your_api_key", },
+        # debug    => 1
     );
 
 Create and return a new WebService::Simple object.
 "new" Method requires a base_url of Web Service API.
+If debug is set, dump a request URL in get or post method.
 
 =item get(I<[$extra_path,] $args>)
@@ -254 +259 @@
 Send POST request.
 
-=item request_url(I<[%extra_path,] $args>)
+=item request_url(I<$extra_path, $args>)
 
 Return reequest URL.