projects
/
gitmo/Perl-Critic-Dynamic-Moose.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Throw an error by default for violates_metaclass
[gitmo/Perl-Critic-Dynamic-Moose.git]
/
lib
/
Perl
/
Critic
/
Policy
/
DynamicMoose.pm
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;