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 |
|
|
|
$status_line .= $self->popup( INC => { %INC }, 1 ); |
|
|
|
|
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 |