ClassOverridesRole applies only to Moose::Meta::Class

[gitmo/Perl-Critic-Dynamic-Moose.git] / lib / Perl / Critic / Policy / DynamicMoose / ClassOverridesRole.pm

diff --git a/lib/Perl/Critic/Policy/DynamicMoose/ClassOverridesRole.pm b/lib/Perl/Critic/Policy/DynamicMoose/ClassOverridesRole.pm
index 361b55f..b373f84 100644 (file)
--- a/lib/Perl/Critic/Policy/DynamicMoose/ClassOverridesRole.pm
+++ b/lib/Perl/Critic/Policy/DynamicMoose/ClassOverridesRole.pm
@@ -7,6 +7,9 @@ use Perl::Critic::Utils ':severities';
 Readonly::Scalar my $EXPL => q{};
 sub default_severity { $SEVERITY_MEDIUM }
 
+# Class::MOP::Class has no roles
+sub applies_to_metaclass { 'Moose::Meta::Class' }
+
 sub violates_metaclass {
     my $self = shift;
     my $meta = shift;