--- trunk/lib/Frey/PPI.pm	2008/11/24 17:24:18	488
+++ trunk/lib/Frey/PPI.pm	2008/11/24 17:26:47	489
@@ -114,15 +114,15 @@
 sub has_tests {
 	my ($self) = shift;
 	
-	$self->parse_tests unless defined $class_has_tests;
+	$self->parse_tests unless $class_has_tests;
 
 	my $class = $self->class;
 
 	if ( my $tests = $class_has_tests->{ $class } ) {
-#		warn "# has_tests $class ",dump( keys %$tests );
-		return [ keys %$tests ];
+		my @tests = keys %$tests;
+		warn "# has_tests $class ",dump( @tests );
+		return @tests;
 	}
-	return [];
 }
 
 =head2 as_data