--- branches/mojo/lib/Frey/Introspect.pm	2008/11/04 19:11:37	255
+++ branches/mojo/lib/Frey/Introspect.pm	2008/11/04 19:38:49	256
@@ -172,11 +172,12 @@
 				}
 				$after .= ' ';
 			}
-			qq|<td class="a">$before $_</td><td>$after</td>|
+			my $type = $attr->has_type_constraint ? $attr->type_constraint->name : '';
+			qq|<td class="a">$before $_</td><td class="t">$type</td><td>$after</td>|
 		} sort $meta->get_attribute_list
 	}
 
-	my $table = qq|<table class="frey-object-browser"><tr><th class="m">Methods</th><th class="a">Attributes</th><th class="p">Properties</th></tr>|;
+	my $table = qq|<table class="frey-object-browser"><tr><th class="m">Methods</th><th class="a">Attributes</th><th>Type</th><th class="p">Properties</th></tr>|;
 	while ( @methods || @attributes ) {
 		my ($m,$a) = ( shift @methods, shift @attributes );
 		$m ||= '<td></td>';