--- trunk/lib/Frey/Introspect.pm	2008/11/28 18:31:28	599
+++ trunk/lib/Frey/Introspect.pm	2008/11/28 19:19:46	602
@@ -15,6 +15,7 @@
 
 extends 'Frey::PPI';
 with 'Frey::Web';
+with 'Frey::Storage';
 
 has 'class' => (
 	is => 'rw',
@@ -107,6 +108,10 @@
 
 	my $class = $self->class;
 
+	my $introspect_path = "var/introspect/$class.yaml";
+	$self->mkbasepath( $introspect_path );
+	my $introspect = $self->load( $introspect_path );
+
 	my ( $superclasses, $roles ) = ( '<b>Role</b>', '' );
 	if ( ! $is_role ) {
 		if ( $meta->superclasses ) {
@@ -114,6 +119,7 @@
 				join(', ',
 					map {
 						my $name = $_->meta->name;
+						$introspect->{superclass}->{$name}++;
 						$self->dropdown( $name, $_->meta )
 					}
 					#grep { $_ ne 'Moose::Object' }
@@ -131,6 +137,7 @@
 			grep { ! m/\Q$class\E/ }	# skip me
 			map {
 				my $name = $_->name;
+				$introspect->{role}->{$name}++;
 				$role_method->{    $_ }->{$name} = $role_nr foreach $_->get_method_list;
 				$role_attribute->{ $_ }->{$name} = $role_nr foreach $_->get_attribute_list;
 				$self->dropdown( $name, $name->meta ) . qq|<sup>| . $role_nr++ . qq|</sup>|;
@@ -144,6 +151,7 @@
 	my @methods;
 	@methods = map {
 		my $name = $_;
+		$introspect->{method}->{$name}++;
 		if ( $role_method->{$name} ) {
 			my ( $role_name, $nr ) = each %{ $role_method->{$name} };
 			$name .= qq|<sup title="$role_name">$nr</sup>|;
@@ -155,6 +163,7 @@
 	if ( $meta->get_attribute_list ) {
 		@attributes = map {
 			my $name = $_;
+			$introspect->{attribute}->{$name}++;
 			my $html_name = $name;
 			my $attr = $meta->get_attribute($name);
 			confess "$class attribute $name isn't blessed ",dump( $attr ) unless blessed $attr;
@@ -229,11 +238,14 @@
 
 	my $runnable = join("\n",
 		map {
+			$introspect->{runnable}->{$_}++;
 			qq|<a target="$class" href="/$class/$_">$_</a>|
 		} $self->class_runnable( $class )
 	);
 	$runnable = " runnable: $runnable" if $runnable;
 
+	$self->store( $introspect_path, $introspect );
+
 	$self->title( $class );
 
 	my $has_tests = '';