summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2018-06-24 02:33:34 -0400
committerJesse Luehrs <doy@tozt.net>2018-06-24 02:33:34 -0400
commit09863f20dbd95faea1470fd665d7ea41502fe43f (patch)
tree283611a815ffe80663eac3441e657944ee0eb418
parent8417bc32b273b70b7db205bddd63bf8c16a94f02 (diff)
downloadwww-ynab-09863f20dbd95faea1470fd665d7ea41502fe43f.tar.gz
www-ynab-09863f20dbd95faea1470fd665d7ea41502fe43f.zip
clean up some debugging
-rw-r--r--lib/WWW/YNAB/UA.pm6
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,