diff options
author | Jesse Luehrs <doy@tozt.net> | 2018-06-24 02:33:34 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2018-06-24 02:33:34 -0400 |
commit | 09863f20dbd95faea1470fd665d7ea41502fe43f (patch) | |
tree | 283611a815ffe80663eac3441e657944ee0eb418 /lib/WWW/YNAB | |
parent | 8417bc32b273b70b7db205bddd63bf8c16a94f02 (diff) | |
download | www-ynab-09863f20dbd95faea1470fd665d7ea41502fe43f.tar.gz www-ynab-09863f20dbd95faea1470fd665d7ea41502fe43f.zip |
clean up some debugging
Diffstat (limited to 'lib/WWW/YNAB')
-rw-r--r-- | lib/WWW/YNAB/UA.pm | 6 |
1 files 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, |