Changeset 8633

Timestamp:

04/02/08 12:45:37 (5 years ago)

Author:

yusukebe

Message:

 

Files:

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

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

@@ -8 +8 @@
 use URI::Escape;
 use WebService::Simple::Response;
-use Data::Dumper;
 
 our $VERSION = '0.02';
@@ -50 +49 @@
     my $url = $base_url =~ /\?$/ ? $base_url : $base_url . "?";
     my @params;
-    map {push(@params, "$_=" . URI::Escape::uri_escape_utf8($self->{param}->{$_}))}
-        keys %{$self->{param}};
-    map {push(@params, "$_=" . URI::Escape::uri_escape_utf8($request_param->{$_}))}
-        keys %$request_param;
+    push(@params, $self->_hashref_to_str($self->{param}));
+    push(@params, $self->_hashref_to_str($request_param));
     my $str = join("&",@params);
-    $url .= $str;
-    return $url;
+    return $url . $str;
 }
+
+sub _hashref_to_str {
+    my ($self, $ref) = @_;
+    my @strs;
+    foreach my $key ( keys %$ref ){
+        my $value = $ref->{$key};
+        utf8::decode($value) unless utf8::is_utf8($value);
+        my $str = "$key=" . URI::Escape::uri_escape_utf8($value);
+        push(@strs, $str);
+    }
+    return @strs;
+}
+
 
 1;