First page Back Continue Last page Overview Graphics
Creating Custom Policies
package Perl::Critic::Policy::DefaultComments;
use strict;
use warnings;
use Perl::Critic::Utils;
use Perl::Critic::Violation;
use base 'Perl::Critic::Policy';
sub violates
{
my ( $self, $elem, $doc ) = @_;
$elem->isa('PPI::Token::Comment') || return;
if( ($elem=~/of the extension was negligent/)
||($elem=~/blah blah blah/i)
{
return Perl::Critic::Violation->new(
q{default documentation detected},
q{you should customize the documentation},
$elem->location());
}
return;
}
1;