--- trunk/lib/Frey/PPI.pm	2008/11/24 18:10:34	490
+++ trunk/lib/Frey/PPI.pm	2008/11/24 18:29:41	491
@@ -121,7 +121,8 @@
 	if ( my $tests = $class_has_tests->{ $class } ) {
 		my @tests = keys %$tests;
 		warn "# has_tests $class ",dump( @tests );
-		return @tests;
+		return @tests if wantarray;
+		return \@tests;
 	}
 }