--- trunk/lib/Frey/Class/Browser.pm	2008/12/10 17:51:32	794
+++ trunk/lib/Frey/Class/Browser.pm	2008/12/10 17:57:10	795
@@ -9,6 +9,13 @@
 use Frey::Run;
 use Data::Dump qw/dump/;
 
+has 'usage_sort' => (
+	is => 'rw',
+	isa => 'Bool',
+	default => 0,
+	documentation => 'Sort by class usage',
+);
+
 has 'usage_on_top' => (
 	is => 'rw',
 	isa => 'Bool',
@@ -93,7 +100,7 @@
 				$html;
 			}
 			sort {
-				if ( $usage->{$a} || $usage->{$b} ) {
+				if ( $self->usage_sort && ( $usage->{$a} || $usage->{$b} ) ) {
 					$self->usage_on_top ? $usage->{$b} <=> $usage->{$a} : $usage->{$a} <=> $usage->{$b};
 				} else {
 					$self->usage_on_top ? $a cmp $b : $b cmp $a;