--- 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}{$2}gs;
- $inc_html =~ s{\s+=>\s+}{ }gs;
- $inc_html =~ s{,}{}gs;
- }
-
- $status_line .= $self->popup( INC => "$inc_html" );
-
my ($exit,$description) = ('exit','stop server');
($exit,$description) = ('restart','restart server')
if $ENV{FREY_RESTART}; # tune labels on exit link