--- trunk/lib/Frey/Introspect.pm	2008/07/14 23:39:56	128
+++ trunk/lib/Frey/Introspect.pm	2008/07/15 13:58:07	133
@@ -149,10 +149,9 @@
 		if ( $class->get_attribute_list ) {
 		@attributes = map {
 				my $attr = $class->get_attribute($_);
-#				warn "## $_ ", $attr->is_required ? 'required' : 'optional';
-				qq|<td><a href="/~/$package/$_?">$_</a></td><td>| .
-				( $attr->is_required ? ' <b>required</b>' : '' ) .
-				qq|</td>|;
+				my ( $before, $title, $after ) = ( '', '', '' );
+				( $before, $title, $after ) = ( '<b>', ' title="required"', '</b>' ) if $attr->is_required;
+				qq|<td>$before<a href="/~/$package/$_?"$title>$_</a>$after</td>|
 			} sort $class->get_attribute_list
 		}