From dbd7ac7e7a2c33a3bda89424b02103a9bda50f5d Mon Sep 17 00:00:00 2001
From: Guillem Jover <gjover@sipwise.com>
Date: Fri, 8 Nov 2019 00:05:50 +0100
Subject: [PATCH] TT#69200 Move hash argument to content method into a variable

This confuses perlritic, which consider this a pair of statements
separated by a comma.

Change-Id: I3c67c2fff03e5142a0dc284221dd0cc991ae052d
---
 lib/NGCP/BulkProcessor/Projects/t/create_subscriber.t | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/lib/NGCP/BulkProcessor/Projects/t/create_subscriber.t b/lib/NGCP/BulkProcessor/Projects/t/create_subscriber.t
index e24c0db..52fced2 100644
--- a/lib/NGCP/BulkProcessor/Projects/t/create_subscriber.t
+++ b/lib/NGCP/BulkProcessor/Projects/t/create_subscriber.t
@@ -259,13 +259,15 @@ sub _create_subscriber {
 sub _update_subscriber {
 
     my ($subscriber,@further_opts) = @_;
+    my $content = {
+        %{$subscriber},
+        @further_opts
+    };
+
     $req = HTTP::Request->new('PUT', $uri.'/api/subscribers/'.$subscriber->{id});
     $req->header('Content-Type' => 'application/json');
     $req->header('Prefer' => 'return=representation');
-    $req->content(JSON::to_json({
-        %$subscriber,
-        @further_opts,
-    }));
+    $req->content(JSON::to_json($content));
     $res = $ua->request($req);
     is($res->code, 200, "update test subscriber");
     $subscriber = JSON::from_json($res->decoded_content);