--- trunk/lib/Frey/Web.pm	2008/11/26 16:34:25	537
+++ trunk/lib/Frey/Web.pm	2008/11/26 17:36:02	538
@@ -208,7 +208,24 @@
 
 	$status_line .= $self->warnings_html;
 
-	$status_line .= $self->popup( INC => { %INC }, 1 );
+	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')