use strict;
use warnings;
use parent qw/Exporter/;
-our $VERSION = '0.000_002';
+our $VERSION = '0.000_003';
our @EXPORT_OK = qw/TF2 DOTA2/;
use constant +{
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};