Perl::Critic::Policy::Miscellanea::ProhibitUselessNoCritic − Remove ineffective "## no critic" annotations.
This Policy is part of the core Perl::Critic distribution.
Sometimes, you may need to use a "## no critic" annotation to work around a false-positive bug in Perl::Critic. But eventually, that bug might get fixed, leaving your code with extra "## no critic" annotations lying about. Or you may use them to locally disable a Policy, but then later decide to permanently remove that Policy entirely from your profile, making some of those "## no critic" annotations pointless. Or, you may accidentally disable too many Policies at once, creating an opportunity for new violations to slip in unnoticed.
This Policy will emit violations if you have a "## no critic" annotation in your source code that does not actually suppress any violations given your current profile. To resolve this, you should either remove the annotation entirely, or adjust the Policy name patterns in the annotation to match only the Policies that are actually being violated in your code.
For example, let’s say I have a regex, but I don’t want to use the "/x" flag, which violates the "RegularExpressions::RequireExtendedFormatting" policy. In the following code, the "## no critic" annotation will suppress violations of that Policy and ALL Policies that match "m/RegularExpressions/imx"
my $re = qr/foo bar baz/ms; ## no critic (RegularExpressions)
However, this creates a potential loop-hole for someone to introduce additional violations in the future, without explicitly acknowledging them. This Policy is designed to catch these situations by warning you that you’ve disabled more Policies than the situation really requires. The above code should be remedied like this:
my $re = qr/foo bar baz/ms; ## no critic (RequireExtendedFormatting)
Notice how the "RequireExtendedFormatting" pattern more precisely matches the name of the Policy that I’m trying to suppress.
Changing your .perlcriticrc file and disabling policies globally or running at a higher (i.e. less restrictive) severity level may cause this Policy to emit additional violations. So you might want to defer using this Policy until you have a fairly stable profile.
This Policy is not configurable except for the standard options.
This Policy was inspired by Adam Kennedy’s article at <http://use.perl.org/article.pl?sid=08/09/24/1957256>.
Jeffrey Ryan Thalhammer <jeff@imaginative−software.com>
Copyright (c) 2005−2011 Imaginative Software Systems. All rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. The full text of this license can be found in the LICENSE file included with this module.