X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FPerl%2FCritic%2FPolicy%2FDynamicMoose.pm;h=e4f66fb8287005ce2499250ecb62b0a38ec08bb6;hb=914f300c017509173ef3d6b5e553e69ff7e52740;hp=c0c9036f80c315608b82ac5392ba18ba340852a6;hpb=336800ce224f268b960d923aa6d9af4e2bebde12;p=gitmo%2FPerl-Critic-Dynamic-Moose.git diff --git a/lib/Perl/Critic/Policy/DynamicMoose.pm b/lib/Perl/Critic/Policy/DynamicMoose.pm index c0c9036..e4f66fb 100644 --- a/lib/Perl/Critic/Policy/DynamicMoose.pm +++ b/lib/Perl/Critic/Policy/DynamicMoose.pm @@ -10,7 +10,7 @@ has document => ( ); sub applies_to { 'PPI::Document' } -sub applies_to_metaclass { 'Class::MOP::Class' } +sub applies_to_metaclass { 'Class::MOP::Class', inner() } around violation => sub { my $orig = shift;