From 8ab946797f4be531660d36da4f8813b22526b9b8 Mon Sep 17 00:00:00 2001
From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 6 Jun 2015 22:32:14 +0300
Subject: [PATCH] Do not depend on LWP

---
 Makefile.PL           | 3 +--
 README                | 1 -
 lib/WWW/BackpackTF.pm | 8 ++++++--
 t/50-network.t        | 2 +-
 4 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/Makefile.PL b/Makefile.PL
index 6d4a2b7..d08e328 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -11,11 +11,10 @@ WriteMakefile(
 	SIGN              => 1,
 	PREREQ_PM         => {
 		qw/JSON::MaybeXS 0
-		   LWP::Simple 0
 		   PerlX::Maybe 0/,
 	},
 	BUILD_REQUIRES    => {
-		qw/LWP::Online 0/,
+		qw/Test::RequiresInternet 0/,
 	},
 	META_MERGE        => {
 		dynamic_config => 0,
diff --git a/README b/README
index 01b8a59..9483b54 100644
--- a/README
+++ b/README
@@ -19,7 +19,6 @@ DEPENDENCIES
 This module requires these other modules and libraries:
 
 * JSON
-* LWP
 
 COPYRIGHT AND LICENCE
 
diff --git a/lib/WWW/BackpackTF.pm b/lib/WWW/BackpackTF.pm
index 015d9fa..7f485d6 100644
--- 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
 }
diff --git a/t/50-network.t b/t/50-network.t
index 3f58417..8f37da4 100644
--- a/t/50-network.t
+++ b/t/50-network.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use LWP::Online ':skip_all';
+use Test::RequiresInternet 'backpack.tf' => 80;
 use Test::More tests => 6;
 use WWW::BackpackTF;
 
-- 
2.39.2