If the key is not provided, do not send an empty key

diff --git a/lib/WWW/BackpackTF.pm b/lib/WWW/BackpackTF.pm
index 5e33b57d67e0055394290ac18fd4d5d7e83003ce..0b6ac12490f1d5277451789ce20f4cd1ef5bbe88 100644 (file)
--- a/lib/WWW/BackpackTF.pm
+++ b/lib/WWW/BackpackTF.pm
@@ -31,7 +31,7 @@ use WWW::BackpackTF::User;
 
 sub request {
        my ($self, $url, %params) = @_;
-       $params{key} = $self->{key};
+       $params{key} = $self->{key} if $self->{key};
        $url = $self->{base} . $url;
        $url .= "&$_=$params{$_}" for keys %params;
        my $response = decode_json(get $url)->{response};