--- trunk/lib/Frey/Web.pm	2008/11/26 17:36:02	538
+++ trunk/lib/Frey/Web.pm	2008/11/26 18:02:38	540
@@ -12,6 +12,8 @@
 
 use Frey::Bookmarklet;
 use Frey::ClassBrowser;
+use Frey::INC;
+
 use Frey::SVK;
 
 has 'head' => (
@@ -186,6 +188,7 @@
 
 	unshift @status, { 'ClassBrowser' => Frey::ClassBrowser->new( usage_on_top => 0 )->as_markup };
 #	unshift @status, { 'Bookmarklets' => Frey::Bookmarklet->new->as_markup };
+	unshift @status, { 'INC' => Frey::INC->new->as_markup };
 
 	foreach my $part ( @status ) {
 		foreach my $name ( keys %$part ) {
@@ -208,25 +211,6 @@
 
 	$status_line .= $self->warnings_html;
 
-	my $inc_html;
-	{
-		my $inc;
-		map {
-			s{.pm$}{};
-			my $class = $_;
-			s[/][}->{]g;
-			$class =~ s[/][::]g;
-			eval '$inc->{' . $_ . '} = $class';
-		} sort keys %INC;
-		$inc_html = dump( $inc );
-		$inc_html =~ s{\s+=>\s+\d+}{}gs;
-		$inc_html =~ s{(['"]?)(\w+)\1\s+=>\s+(['"]?)([\w:]*\2)\3}{<a target="$4" href="/$4" title="$4">$2</a>}gs;
-		$inc_html =~ s{\s+=>\s+}{ }gs;
-		$inc_html =~ s{,}{}gs;
-	}
-
-	$status_line .= $self->popup( INC => "<small>$inc_html</small>" );
-
 	my	($exit,$description) = ('exit','stop server');
 		($exit,$description) = ('restart','restart server')
 		if $ENV{FREY_RESTART}; # tune labels on exit link