--- trunk/lib/Frey/ClassLoader.pm	2008/07/11 22:54:42	101
+++ trunk/lib/Frey/ClassLoader.pm	2008/07/13 16:54:13	112
@@ -7,10 +7,11 @@
 use File::Find;
 
 our $package_path;
+our @classes;
 
 sub classes {
 	my $self = shift;
-	return keys %$package_path if $package_path;
+	return @classes if @classes;
 
 	# FIXME there must be better way to do this in Moose style
 	finddepth({ no_chdir => 1, wanted => sub {
@@ -22,7 +23,7 @@
 	} }, 'lib');
 	warn "## package_path = ",dump( $package_path ) if $self->debug;
 
-	return keys %$package_path;
+	@classes = sort keys %$package_path;
 }
 
 sub package_path {