add print out of called URL with GOCARDLESS_DEBUG

so we can check query params are being passed in correctly
payprop · Aug 30, 2017 · 9410ef5 · 9410ef5
1 parent a2720d8
commit 9410ef5
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/lib/Business/GoCardless/Client.pm b/lib/Business/GoCardless/Client.pm
@@ -348,10 +348,12 @@ sub _api_request {
 
     my $req = HTTP::Request->new(
         # passing through the absolute URL means we don't build it
-        $method => $path =~ /^http/
+        $method => my $uri = $path =~ /^http/
             ? $path : join( '/',$self->base_url . $self->api_path . $path ),
     );
 
+    say STDERR "GOCARDLESS -> $uri" if $ENV{GOCARDLESS_DEBUG};
+
     $req->header( 'Authorization' => "Bearer " . $self->token );
     $req->header( 'Accept' => 'application/json' );
 

diff --git a/t/004_end_to_end_pro.t b/t/004_end_to_end_pro.t
@@ -76,7 +76,7 @@ my $NewBill = $GoCardless->bill( $Bill->id );
 is( $NewBill->id,$Bill->id,'getting bill with same id gives same bill' );
 
 my $Paginator = $GoCardless->bills(
-	# TOOD: args here
+	limit => 500,
 );
 
 note explain $Paginator->info if $DEBUG;