From: Shawn M Moore <sartak@gmail.com>
Date: Sun, 26 Apr 2009 00:41:24 +0000 (-0400)
Subject: Avoid applying to every element in the tree, we just apply to the doc
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cc784ef46043f1a1839d0c1ff3d865a7d422c4b8;p=gitmo%2FPerl-Critic-Dynamic-Moose.git

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
--- 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 {