$url = $self->{base} . $url;
$url .= "&$_=$params{$_}" for keys %params;
my $response = decode_json(get $url)->{response};
$url = $self->{base} . $url;
$url .= "&$_=$params{$_}" for keys %params;
my $response = decode_json(get $url)->{response};
sub get_prices {
my ($self, $appid, $raw) = @_;
my $response = $self->request('IGetPrices/v4/?compress=1', maybe appid => $appid, maybe raw => $raw);
sub get_prices {
my ($self, $appid, $raw) = @_;
my $response = $self->request('IGetPrices/v4/?compress=1', maybe appid => $appid, maybe raw => $raw);
}
sub get_users {
my ($self, @users) = @_;
my $response = $self->request('IGetUsers/v3/?compress=1', steamids => join ',', @users);
}
sub get_users {
my ($self, @users) = @_;
my $response = $self->request('IGetUsers/v3/?compress=1', steamids => join ',', @users);
wantarray ? @users : $users[0]
}
sub get_currencies {
my ($self, $appid) = @_;
my $response = $self->request('IGetCurrencies/v1/?compress=1', maybe appid => $appid);
wantarray ? @users : $users[0]
}
sub get_currencies {
my ($self, $appid) = @_;
my $response = $self->request('IGetCurrencies/v1/?compress=1', maybe appid => $appid);