Throw an error by default for violates_metaclass

diff --git a/lib/Perl/Critic/Policy/DynamicMoose.pm b/lib/Perl/Critic/Policy/DynamicMoose.pm
index 888ff73..303e249 100644 (file)
--- a/lib/Perl/Critic/Policy/DynamicMoose.pm
+++ b/lib/Perl/Critic/Policy/DynamicMoose.pm
@@ -58,6 +58,8 @@ sub violates_dynamic {
     return @violations;
 }
 
+sub violates_metaclass { die "Your policy (" . blessed($_[0]) . ") needs to implement violates_metaclass" }
+
 sub _compile_document {
     my $self = shift;
     my $doc = $self->document;