From: Shawn M Moore <sartak@gmail.com>
Date: Tue, 28 Apr 2009 09:24:39 +0000 (-0400)
Subject: Make some methods private
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=91827b049c85dc9650bb18b83acc3b6da6e01b2d;p=gitmo%2FPerl-Critic-Dynamic-Moose.git

Make some methods private
---

diff --git a/lib/Perl/Critic/Policy/DynamicMoose.pm b/lib/Perl/Critic/Policy/DynamicMoose.pm
index e95cad2..888ff73 100644
--- a/lib/Perl/Critic/Policy/DynamicMoose.pm
+++ b/lib/Perl/Critic/Policy/DynamicMoose.pm
@@ -40,9 +40,9 @@ sub violates_dynamic {
 
     $self->document($doc);
 
-    my $old_packages = $self->find_packages;
-    $self->compile_document;
-    my @new_packages = $self->new_packages($old_packages);
+    my $old_packages = $self->_find_packages;
+    $self->_compile_document;
+    my @new_packages = $self->_new_packages($old_packages);
 
     my @violations;
     for my $package (@new_packages) {
@@ -58,7 +58,7 @@ sub violates_dynamic {
     return @violations;
 }
 
-sub compile_document {
+sub _compile_document {
     my $self = shift;
     my $doc = $self->document;
 
@@ -69,12 +69,12 @@ sub compile_document {
     die "Unable to execute " . $doc->filename . ": $@" if $@;
 }
 
-sub find_packages {
+sub _find_packages {
     my $self = shift;
     return [ Class::MOP::get_all_metaclass_names ];
 }
 
-sub new_packages {
+sub _new_packages {
     my $self = shift;
     my $old  = shift;
     my @new;
@@ -82,7 +82,7 @@ sub new_packages {
 
     $seen{$_} = 1 for @$old;
 
-    for (@{ $self->find_packages }) {
+    for (@{ $self->_find_packages }) {
         push @new, $_ if !$seen{$_}++;
     }