12 |
|
|
13 |
use Frey::Bookmarklet; |
use Frey::Bookmarklet; |
14 |
use Frey::ClassBrowser; |
use Frey::ClassBrowser; |
15 |
|
use Frey::INC; |
16 |
|
|
17 |
use Frey::SVK; |
use Frey::SVK; |
18 |
|
|
19 |
has 'head' => ( |
has 'head' => ( |
188 |
|
|
189 |
unshift @status, { 'ClassBrowser' => Frey::ClassBrowser->new( usage_on_top => 0 )->as_markup }; |
unshift @status, { 'ClassBrowser' => Frey::ClassBrowser->new( usage_on_top => 0 )->as_markup }; |
190 |
# unshift @status, { 'Bookmarklets' => Frey::Bookmarklet->new->as_markup }; |
# unshift @status, { 'Bookmarklets' => Frey::Bookmarklet->new->as_markup }; |
191 |
|
unshift @status, { 'INC' => Frey::INC->new->as_markup }; |
192 |
|
|
193 |
foreach my $part ( @status ) { |
foreach my $part ( @status ) { |
194 |
foreach my $name ( keys %$part ) { |
foreach my $name ( keys %$part ) { |
211 |
|
|
212 |
$status_line .= $self->warnings_html; |
$status_line .= $self->warnings_html; |
213 |
|
|
|
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>" ); |
|
|
|
|
214 |
my ($exit,$description) = ('exit','stop server'); |
my ($exit,$description) = ('exit','stop server'); |
215 |
($exit,$description) = ('restart','restart server') |
($exit,$description) = ('restart','restart server') |
216 |
if $ENV{FREY_RESTART}; # tune labels on exit link |
if $ENV{FREY_RESTART}; # tune labels on exit link |