MT#62763 Suppress perlcritic false positives or intentional violations

Warned-by: perlcritic
Change-Id: I7466d820e8257165e55e1f500bb256dd697de963

lib/NGCP/Panel/Controller/Customer.pm

@@ -1924,6 +1924,8 @@ sub pbx_device_lines_update :Private{
         } else {
             next unless $line->field('subscriber_id')->value;
         }
+        # XXX: This is a perlcritic false positive, ignore it.
+        ## no critic (ValuesAndExpressions::ProhibitCommaSeparatedStatements)
         my $prov_subscriber = $schema->resultset('provisioning_voip_subscribers')->find({
             $is_custom_number
                 ? (is_pbx_pilot => 1)

lib/NGCP/Panel/Utils/GD/Simple.pm

@@ -248,6 +248,9 @@ If future GD subclasses are created, this method will subport them.
 
 =cut
 
+# XXX: This is part of the current API, while the check is valid, this cannot
+# be easily fixed.
+## no critic (Subroutines::ProhibitBuiltinHomonyms)
 sub class {
   my $pack    = shift;
   if (@_) {

sandbox/generate_logfile_data_inventory.pl

@@ -616,6 +616,8 @@ sub _deserialize_messagesargs {
     my $contact_id = '$contact_id';
     my $group_name = '$group_name'; #app server
     use Data::Dumper;
+    # XXX: This is part of the current API.
+    ## no critic (BuiltinFunctions::ProhibitStringyEval)
     my $args = eval $_line;
     if ($@) {
         warn($_line ."\n" .$@);