Changeset 10521

Timestamp:

04/27/08 12:34:31 (6 months ago)

Author:

yusukebe

Message:

request_url メソッドを追加. get メソッド, post メソッドでもそれを呼ぶことにした

Files:

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

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

@@ -114 +114 @@
 }
 
-sub get
-{
+sub request_url {
     my $self = shift;
-    my ($url, %extra, @headers);
+    my ($url, %extra);
+
     if (ref $_[0] eq 'HASH') {
+        $url = "";
         %extra = %{shift @_};
     } else {
@@ -127 +128 @@
     }
 
-    @headers = @_;
-
     my $uri = URI->new($self->base_url);
+
     if($url){
         $url =~ s!^/!! if $url =~ m!^/!;
@@ -135 +135 @@
     }
 
-    # The url must be initialized with default parameters.
-
     map { utf8::encode($extra{$_}) if utf8::is_utf8($extra{$_}) } keys %extra;
-
     $uri->query_form( %{$self->basic_params}, %extra );
+
+    return $uri;
+}
+
+sub get
+{
+    my ($self, $url, %extra) = @_;
+    my $uri = $self->request_url($url,%extra);
+
+    my @headers = @_;
 
     my $response;
@@ -158 +165 @@
     $self->__cache_set([$uri, @headers], $response);
     return $response;
-
 }
 
@@ -165 +171 @@
     my ($self, $url, @params) = @_;
 
-    my $uri = URI->new($self->base_url);
-    if($url){
-        $url =~ s!^/!! if $url =~ m!^/!;
-        $uri->path( $uri->path . $url);
-    }
+    my $uri = $self->request_url($url);
 
     # default parameters must come *before* @params, so unshift instead
@@ -251 +253 @@
 
 Send POST request.
+
+=item request_url(I<[%extra_path,] $args>)
+
+Return reequest URL.
 
 =item base_url