--- trunk/lib/Frey/Introspect.pm	2008/12/02 19:10:36	688
+++ trunk/lib/Frey/Introspect.pm	2008/12/05 17:34:42	727
@@ -159,7 +159,7 @@
 			$name .= qq|<sup title="$role_name">$nr</sup>|;
 		}
 		qq|<td class="m">$name</td>|
-	} $self->class_methods( $class );
+	} sort $self->class_methods( $class );
 
 	my @attributes;
 	if ( $meta->get_attribute_list ) {
@@ -201,7 +201,7 @@
 			eval { $properties = $attr->documentation . ' ' . $properties };
 
 			qq|<td class="a">$html_name</td><td class="t">$type</td><td>$properties</td>|
-		} $meta->get_attribute_list
+		} sort $meta->get_attribute_list
 	}
 
 	my $table = qq|<table class="frey-introspect"><tr><th class="m">Methods</th><th class="a">Attributes</th><th>Type</th><th class="p">Properties</th></tr>|;
@@ -247,7 +247,7 @@
 			qq|<a target="$class" href="/$class/$_" title="/$class/$_">$short</a>|
 		} $self->class_runnable( $class )
 	);
-	$runnable = " runnable: $runnable" if $runnable;
+	$runnable = "<br>run: $runnable" if $runnable;
 
 	$self->store( $introspect_path, $introspect );
 
@@ -266,9 +266,9 @@
 	return join("\n",
 		qq|<h1>$class</h1>|,
 		qq|<div class="frey-introspect">$superclasses\n$roles\n$runnable\n|,
+		$has_tests,
 		$pod    ? qq|<a class="frey-skip" href="#___top" title="Skip to POD"    >pod</a>|    : '',
 		$source ? qq|<a class="frey-skip" href="#source" title="Skip to source" >source</a>| : '',
-		$has_tests,
 		qq|$table\n$pod\n</div>\n|,
 		qq|<h1>Source</h1><a name="source"></a><div class="frey-source">$source</div>|,
 	);