--- trunk/lib/Frey/Introspect.pm	2009/01/10 23:47:04	992
+++ trunk/lib/Frey/Introspect.pm	2009/01/11 12:09:58	993
@@ -318,20 +318,40 @@
 
 	$self->store( $introspect_path, $introspect );
 
+	$self->add_css(qq|
+		.right {
+			position: fixed;
+			top: 1em;
+			right: 1em;
+			z-index: 10;
+			background: #fff;
+			padding: 0.2em;
+			border: 1px dashed #ee8;
+		}
+	|);
+
 	return join("\n",
-		qq|<h1>$class</h1>|,
-		qq|<div class="frey-introspect">
-			$superclasses $roles
-			<br>
-			$includes
-			<br>
-			$runnable
+		qq|
+			<h1>$class</h1>
+			<div class="frey-introspect">
+				$superclasses $roles
+				<br>$includes
+			</div>
+			<div class="right">
+				$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|$table\n$pod\n</div>\n|,
-		qq|<h1>Source</h1><a name="source"></a><div class="frey-source">$source</div>|,
+		qq|
+			</div>
+			$table
+			$pod
+			</div>
+
+			<h1>Source</h1><a name="source"></a>
+			<div class="frey-source">$source</div>
+		|,
 	);
 }