Disable critic disapproval on purge key list

metacpan · Jul 6, 2015 · 8458b4c · 8458b4c
1 parent df50cb9
commit 8458b4c
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/bin/purge.pl b/bin/purge.pl
@@ -43,6 +43,7 @@ =head1 DESCRIPTION
 
 }
 elsif( $opt->list ){
+    ## no critic (MutatingList)
     print
         grep { !/_cache_key_for_user/ }
         map  { s/\A.+:\s+\$c->add_surrogate_key\((.+?)\);\Z/$1/; $_ }