Don't write query params yourself.

metacpan · Apr 24, 2016 · afed642 · afed642
1 parent aeaed23
commit afed642
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lib/MetaCPAN/Web/Model/API.pm b/lib/MetaCPAN/Web/Model/API.pm
@@ -12,6 +12,7 @@ use JSON::MaybeXS;
 use MetaCPAN::Web::Types qw( Uri );
 use MooseX::ClassAttribute;
 use Try::Tiny qw( catch try );
+use URI::QueryParam;
 
 class_has client => (
     is   => 'ro',
@@ -63,9 +64,10 @@ sub request {
     my ( $self, $path, $search, $params ) = @_;
 
     my ( $token, $method ) = @$params{qw(token method)};
-    $path .= "?access_token=$token" if ($token);
     my $req = $self->cv;
+
     my $url = $self->api_secure->clone;
+    $url->query_param( access_token => $token ) if $token;
     $url->path($path);
 
     my $request = HTTP::Request->new(
@@ -191,5 +193,4 @@ sub raw_api_response {
 }
 
 __PACKAGE__->meta->make_immutable;
-
 1;