diff options
Diffstat (limited to 'xt/lib/QA/RPC/JSONRPC.pm')
-rw-r--r-- | xt/lib/QA/RPC/JSONRPC.pm | 11 |
1 files changed, 10 insertions, 1 deletions
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; |