From 7d2b61efa6db4f515c1d9640e1beda89138f9e00 Mon Sep 17 00:00:00 2001
From: Frédéric Buclin <LpSolit@gmail.com>
Date: Sat, 5 Mar 2016 12:51:08 +0100
Subject: Some more cleanup in xt/

---
 xt/lib/QA/RPC/JSONRPC.pm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'xt/lib/QA/RPC/JSONRPC.pm')

diff --git a/xt/lib/QA/RPC/JSONRPC.pm b/xt/lib/QA/RPC/JSONRPC.pm
index ce3122869..10e0d3a69 100644
--- a/xt/lib/QA/RPC/JSONRPC.pm
+++ b/xt/lib/QA/RPC/JSONRPC.pm
@@ -126,7 +126,10 @@ sub _get {
 1;
 
 package QA::RPC::JSONRPC::ReturnObject;
+
+use 5.14.0;
 use strict;
+use warnings;
 
 BEGIN {
     if (eval { require JSON::RPC::Client }) {
@@ -149,8 +152,12 @@ sub fault { $_[0]->is_error }
 1;
 
 package QA::RPC::UserAgent;
+
+use 5.14.0;
 use strict;
-use base qw(LWP::UserAgent);
+use warnings;
+
+use parent  qw(LWP::UserAgent);
 
 ########################################
 # Consistency with XMLRPC::Lite's ->ua #
@@ -172,3 +179,5 @@ sub http_response {
     if (@_) { $self->{'_http_response'} = shift; return $self }
     return $self->{'_http_response'};
 }
+
+1;
-- 
cgit v1.2.3-24-g4f1b