Do not depend on LWP

[www-backpacktf.git] / lib / WWW / BackpackTF.pm

diff --git a/lib/WWW/BackpackTF.pm b/lib/WWW/BackpackTF.pm
index 015d9fa3a810121009503f7de23cc33c2b0200e6..7f485d6900a3d6604759a0399cbd7fc8459dcbaf 100644 (file)
--- a/lib/WWW/BackpackTF.pm
+++ b/lib/WWW/BackpackTF.pm
@@ -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} 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
 }