--- trunk/lib/Frey/Introspect.pm	2009/01/24 19:21:14	1012
+++ trunk/lib/Frey/Introspect.pm	2009/01/25 16:32:53	1017
@@ -330,6 +330,14 @@
 		}
 	|);
 
+	my $right = join('<br>',
+		grep { $_ } (
+			$runnable,
+			$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>| : '',
+		)
+	);
 	return join("\n",
 		qq|
 			<h1>$class</h1>
@@ -338,11 +346,7 @@
 				<br>$includes
 			</div>
 			<div class="right">
-		|,
-		join('<br>', grep { $_ } ( $runnable, $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>| : '',
-		qq|
+				$right
 			</div>
 			$table
 			$pod