lib/Perl/Critic/Policy/DynamicMoose/ClassOverridesRole.pm

   1 package Perl::Critic::Policy::DynamicMoose::ClassOverridesRole;
   2 use Moose;
   3 extends 'Perl::Critic::Policy::DynamicMoose';
   4
   5 use Perl::Critic::Utils ':severities';
   6
   7 Readonly::Scalar my $EXPL => q{};
   8 sub default_severity { $SEVERITY_MEDIUM }
   9
  10 sub violates_metaclass {
  11     my $self = shift;
  12     my $meta = shift;
  13
  14     return;
  15 }
  16
  17 no Moose;
  18
  19 1;
  20
  21 __END__
  22
  23 =head1 NAME
  24
  25 Perl::Critic::Policy::DynamicMoose::ClassOverridesRole
  26
  27 =head1 DESCRIPTION
  28
  29
  30 =head1 WARNING
  31
  32 B<VERY IMPORTANT:> Most L<Perl::Critic> Policies (including all the ones that
  33 ship with Perl::Critic> use pure static analysis -- they never compile nor
  34 execute any of the code that they analyze.  However, this policy is very
  35 different.  It actually attempts to compile your code and then compares the
  36 subroutines mentioned in your code to those found in the symbol table.
  37 Therefore you should B<not> use this Policy on any code that you do not trust,
  38 or may have undesirable side-effects at compile-time (such as connecting to the
  39 network or mutating files).
  40
  41 For this Policy to work, all the modules included in your code must be
  42 installed locally, and must compile without error.
  43
  44 =head1 AUTHOR
  45
  46 Shawn M Moore, C<sartak@bestpractical.com>
  47
  48 =cut
  49