diff options
| author | Frédéric Buclin <LpSolit@gmail.com> | 2016-03-05 12:51:08 +0100 |
|---|---|---|
| committer | Frédéric Buclin <LpSolit@gmail.com> | 2016-03-05 12:51:08 +0100 |
| commit | 7d2b61efa6db4f515c1d9640e1beda89138f9e00 (patch) | |
| tree | 4e3a54d1b8f54d0a4f58a28e2e453f11773927c0 /xt/lib/QA/RPC/JSONRPC.pm | |
| parent | 86fb87f1a65a17e7a86fe71b06d57767b0b3ea3b (diff) | |
| download | bugzilla-7d2b61efa6db4f515c1d9640e1beda89138f9e00.tar.gz bugzilla-7d2b61efa6db4f515c1d9640e1beda89138f9e00.tar.xz | |
Some more cleanup in xt/
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; |