Avoid applying to every element in the tree, we just apply to the doc

diff --git a/lib/Perl/Critic/Policy/Dynamic/Moose.pm b/lib/Perl/Critic/Policy/Dynamic/Moose.pm
index 2e9dcf1..a50cebe 100644 (file)
--- a/lib/Perl/Critic/Policy/Dynamic/Moose.pm
+++ b/lib/Perl/Critic/Policy/Dynamic/Moose.pm
@@ -8,6 +8,7 @@ has document => (
     isa => 'PPI::Document',
 );
 
+sub applies_to { 'PPI::Document' }
 sub applies_to_metaclass { 'Class::MOP::Class' }
 
 around violation => sub {