24 |
isa => 'ArrayRef[HashRef[Str]]', |
isa => 'ArrayRef[HashRef[Str]]', |
25 |
lazy => 1, |
lazy => 1, |
26 |
default => sub { [ |
default => sub { [ |
|
{ 'Bookmarklets' => Frey::Bookmarklet->new->as_markup }, |
|
27 |
{ 'ClassBrowser' => Frey::ClassBrowser->new( usage_on_top => 0 )->as_markup }, |
{ 'ClassBrowser' => Frey::ClassBrowser->new( usage_on_top => 0 )->as_markup }, |
28 |
|
{ 'Bookmarklets' => Frey::Bookmarklet->new->as_markup }, |
29 |
] }, |
] }, |
30 |
); |
); |
31 |
|
|
186 |
. qq|</code></span>| |
. qq|</code></span>| |
187 |
if $self->warnings; |
if $self->warnings; |
188 |
|
|
189 |
|
my $right = |
190 |
|
qq| |
191 |
|
<span class="right"> |
192 |
|
<a href="?reload=$reload_counter"><code>$url</code></a> |
193 |
|
</span> |
194 |
|
|; |
195 |
|
|
196 |
my $html = join("\n", |
my $html = join("\n", |
197 |
qq|<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"><html><head>|, |
qq|<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"><html><head>|, |
198 |
$self->_head_html, |
$self->_head_html, |
204 |
$body |
$body |
205 |
<div class="frey-status-line"> |
<div class="frey-status-line"> |
206 |
<a href="/">Frey</a> $Frey::VERSION |
<a href="/">Frey</a> $Frey::VERSION |
|
<a href="?reload=$reload_counter"><code>$url</code></a> |
|
207 |
$status_line |
$status_line |
208 |
|
$right |
209 |
</div> |
</div> |
210 |
</body></html> |
</body></html> |
211 |
|, |
|, |