--- trunk/lib/Frey/Introspect.pm	2009/01/06 14:50:30	943
+++ trunk/lib/Frey/Introspect.pm	2009/01/25 16:32:53	1017
@@ -60,7 +60,9 @@
 		$out .= "\t\t\t$_: {\n";
 
 		my $attr = $meta->get_attribute($_);
-		my $is = $attr->_is_metadata;
+		my $is = eval { $attr->_is_metadata; };
+		return if $@;
+
 		$out .= "\t\t\t\tis: \"$is\",\n" if defined $is;
 		$out .= "\t\t\t\tlazy: true,\n" if $attr->is_lazy;
 		$out .= "\t\t\t\trequired: true,\n" if $attr->is_required;
@@ -316,20 +318,43 @@
 
 	$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;
+		}
+	|);
+
+	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>|,
-		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">
+				$right
+			</div>
+			$table
+			$pod
+			</div>
+
+			<h1>Source</h1><a name="source"></a>
+			<div class="frey-source">$source</div>
 		|,
-		$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>|,
 	);
 }