Some more cleanup in xt/

diff --git a/xt/lib/QA/REST.pm b/xt/lib/QA/REST.pm
index 1ceeb955bad7453eba40c741210303cb74dab2ad..23d4f4433d49b367f2bf1e97d062eec9d98a6fc6 100644 (file)
--- a/xt/lib/QA/REST.pm
+++ b/xt/lib/QA/REST.pm
@@ -63,3 +63,5 @@ sub call {
         die 'error ' . $res->{code} . ': ' . $res->{message} . "\n";
     }
 }
+
+1;

diff --git a/xt/lib/QA/RPC/JSONRPC.pm b/xt/lib/QA/RPC/JSONRPC.pm
index ce312286996697570ced4484c15ce60e7fd8320a..10e0d3a69c3287f1532a0bead8177c5fe1a0e7cf 100644 (file)
--- 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;

diff --git a/xt/lib/QA/RPC/XMLRPC.pm b/xt/lib/QA/RPC/XMLRPC.pm
index ced9f97eebab1c6e906bef025bf9900bf0cb467d..7e4bcac2402c29e85d626fe08cfad89c47bf6e16 100644 (file)
--- a/xt/lib/QA/RPC/XMLRPC.pm
+++ b/xt/lib/QA/RPC/XMLRPC.pm
@@ -16,11 +16,9 @@ use warnings;
 use FindBin qw($RealBin);
 use lib "$RealBin/../../../lib", "$RealBin/../../../../local/lib/perl5";
 
-use base qw(QA::RPC XMLRPC::Lite);
+use parent qw(QA::RPC XMLRPC::Lite);
 
 use constant TYPE => 'XML-RPC';
 use constant DATETIME_REGEX => qr/^\d{8}T\d\d:\d\d:\d\d$/;
 
 1;
-
-__END__

diff --git a/xt/lib/QA/Tests.pm b/xt/lib/QA/Tests.pm
index d0a32cfc6cd4957db15bfba1f9b8e70d4e2711ac..a76f0601bb76eb39facd1159cd14a5c4ba34a87e 100644 (file)
--- a/xt/lib/QA/Tests.pm
+++ b/xt/lib/QA/Tests.pm
@@ -16,7 +16,8 @@ use warnings;
 use FindBin qw($RealBin);
 use lib "$RealBin/../../lib", "$RealBin/../../../local/lib/perl5";
 
-use base qw(Exporter);
+use parent qw(Exporter);
+
 our @EXPORT_OK = qw(
     PRIVATE_BUG_USER
     STANDARD_BUG_TESTS