TT#29620 Clean TAP test warning: ProhibitCommaSeparatedStatements = Comma used to separate statements

Change-Id: Ib43df167f8133289bd2762f53b3894aaf75b0be4

lib/NGCP/Panel/Controller/Customer.pm

@@ -980,9 +980,9 @@ sub delete_fraud :Chained('base_restricted') :PathPart('fraud/delete') :Args(1)
     if($fraud_prefs) {
         try {
             $fraud_prefs->update({
-                "fraud_".$type."_limit" => undef,
-                "fraud_".$type."_lock" => undef,
-                "fraud_".$type."_notify" => undef,
+                "fraud_${type}_limit" => undef,
+                "fraud_${type}_lock" => undef,
+                "fraud_${type}_notify" => undef,
             });
         } catch($e) {
             NGCP::Panel::Utils::Message::error(

lib/NGCP/Panel/Utils/Invoice.pm

@@ -25,7 +25,7 @@ sub get_invoice_amounts{
         $customer_contract->{add_vat}
         ?
             $invoice->{amount_net} * ($customer_contract->{vat_rate}/100)
-            : 0,
+            : 0;
     $invoice->{amount_total} =  $invoice->{amount_net} + $invoice->{amount_vat};
     return $invoice;
 }
@@ -166,7 +166,7 @@ sub create_invoice{
         amount_vat   => $invoice_data->{amount_vat},
         amount_total => $invoice_data->{amount_total},
     };
-    $vars->{calls} = $calllist,
+    $vars->{calls} = $calllist;
     $vars->{zones} = {
         totalcost => $balance->cash_balance_interval,
         data => [ values(%{ $zonecalls }) ],