From 09863f20dbd95faea1470fd665d7ea41502fe43f Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Sun, 24 Jun 2018 02:33:34 -0400 Subject: clean up some debugging --- lib/WWW/YNAB/UA.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lib/WWW/YNAB/UA.pm b/lib/WWW/YNAB/UA.pm index 8e8c980..47c9fcb 100644 --- a/lib/WWW/YNAB/UA.pm +++ b/lib/WWW/YNAB/UA.pm @@ -52,12 +52,14 @@ sub _request { my $self = shift; my ($method, $path, $params) = @_; - warn "\U$method\E $path"; + if (0) { + warn "\U$method\E $path"; + } my $base = $self->base_uri; $base =~ s{/$}{}; $path =~ s{^/}{}; - my $uri = $self->base_uri . '/' . $path; + my $uri = "$base/$path"; my $response = $self->ua->$method( $uri, -- cgit v1.2.3