diff --git a/lib/NGCP/Panel/Controller/Customer.pm b/lib/NGCP/Panel/Controller/Customer.pm
index e81c061c24..c9d7485b96 100644
--- a/lib/NGCP/Panel/Controller/Customer.pm
+++ b/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)
diff --git a/lib/NGCP/Panel/Utils/GD/Simple.pm b/lib/NGCP/Panel/Utils/GD/Simple.pm
index 174b9c43be..a6d8855929 100644
--- a/lib/NGCP/Panel/Utils/GD/Simple.pm
+++ b/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 (@_) {
diff --git a/sandbox/generate_logfile_data_inventory.pl b/sandbox/generate_logfile_data_inventory.pl
index 72f41fe36c..bce3b360c6 100644
--- a/sandbox/generate_logfile_data_inventory.pl
+++ b/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" .$@);