Update lib/perlcritic/Perl/Critic/Policy/HashKeyQuotes.pm

Co-authored-by: Martchus <martchus@gmx.net>
os-autoinst · Nov 13, 2023 · 0d23938 · 0d23938
1 parent d6c9041
commit 0d23938
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/lib/perlcritic/Perl/Critic/Policy/HashKeyQuotes.pm b/lib/perlcritic/Perl/Critic/Policy/HashKeyQuotes.pm
@@ -17,8 +17,7 @@ sub applies_to { return qw(PPI::Token::Quote::Single PPI::Token::Quote::Double)
 
 # check that hashes are not overly using quotes
 # (os-autoinst coding style)
-sub violates {
-    my ($self, $elem) = @_;
+sub violates ($elem) {
 
     #we only want the check hash keys
     return if !is_hash_key($elem);