X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FWWW%2FBackpackTF.pm;h=7f485d6900a3d6604759a0399cbd7fc8459dcbaf;hb=8ab946797f4be531660d36da4f8813b22526b9b8;hp=5e33b57d67e0055394290ac18fd4d5d7e83003ce;hpb=72f329fe90d7d3aaee7400d639a332d55b30179f;p=www-backpacktf.git

diff --git a/lib/WWW/BackpackTF.pm b/lib/WWW/BackpackTF.pm
index 5e33b57..7f485d6 100644
--- a/lib/WWW/BackpackTF.pm
+++ b/lib/WWW/BackpackTF.pm
@@ -4,7 +4,7 @@ use 5.014000;
 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 +{
@@ -23,18 +23,22 @@ BEGIN {
 }
 
 use JSON::MaybeXS qw/decode_json/;
-use LWP::Simple qw/get/;
+use HTTP::Tiny;
 use PerlX::Maybe;
 use WWW::BackpackTF::Currency;
 use WWW::BackpackTF::Item;
 use WWW::BackpackTF::User;
 
+my $ht = HTTP::Tiny->new(agent => "WWW-BackpackTF/$VERSION");
+
 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};
+	my $htr = $ht->get($url);
+	die $htr->{reason} unless $htr->{success};
+	my $response = decode_json($htr->{content})->{response};
 	die $response->{message} unless $response->{success};
 	$response
 }