X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FPerl%2FCritic%2FPolicy%2FDynamicMoose.pm;h=303e249e00af43fb08024704a8a7a4799394e3a9;hb=b971d8fa31da3513e9d09a50ede907ba19bd8456;hp=888ff730bb104e9f5defa8f33b0e073aac7c901c;hpb=91827b049c85dc9650bb18b83acc3b6da6e01b2d;p=gitmo%2FPerl-Critic-Dynamic-Moose.git

diff --git a/lib/Perl/Critic/Policy/DynamicMoose.pm b/lib/Perl/Critic/Policy/DynamicMoose.pm
index 888ff73..303e249 100644
--- 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;