--- trunk/lib/Frey/PPI.pm	2009/06/29 12:11:14	1104
+++ trunk/lib/Frey/PPI.pm	2009/06/29 14:09:34	1105
@@ -29,7 +29,7 @@
 	},
 );
 
-sub find {
+sub find_doc_el {
 	my ( $self, $coderef ) = @_;
 
 	my $doc = $self->doc;
@@ -44,7 +44,7 @@
 	my ( $self ) = @_;
 
 	my @attribute_order;
-	$self->find(sub {
+	$self->find_doc_el(sub {
 		my ($doc,$el) = @_;
 		return unless 
 			$el->isa('PPI::Statement') &&
@@ -65,7 +65,7 @@
 	my $self = shift;
 
 	my $include;
-	$self->find(sub {
+	$self->find_doc_el(sub {
 		my ($doc,$el) = @_;
 		return unless $el->isa('PPI::Statement::Include');
 
@@ -87,12 +87,12 @@
 
 		warn "## ppi test $_" if $self->debug;
 
-		my $doc = Frey::PPI->new( class => $_ );
+		my $ppi = Frey::PPI->new( class => $_ );
 		my @tests;
 
 #		warn "## ",dump( $doc );
 
-		$doc->find(sub {
+		$ppi->find_doc_el(sub {
 			my ($doc,$el) = @_;
 			return unless 
 				$el->isa('PPI::Statement') &&
@@ -125,8 +125,7 @@
 	if ( my $tests = $class_has_tests->{ $class } ) {
 		my @tests = keys %$tests;
 		warn "# has_tests $class ",dump( @tests );
-		return @tests if wantarray;
-		return \@tests;
+		return @tests;
 	}
 }