24 |
has 'request_url' => ( |
has 'request_url' => ( |
25 |
is => 'rw', |
is => 'rw', |
26 |
isa => 'Uri', coerce => 1, |
isa => 'Uri', coerce => 1, |
27 |
default => '/', |
required => 1, |
28 |
|
# default => '/', |
29 |
); |
); |
30 |
|
|
31 |
has 'title' => ( |
has 'title' => ( |
370 |
sub clean_status { |
sub clean_status { |
371 |
my ($self) = shift; |
my ($self) = shift; |
372 |
@head = ( 'static/frey.css' ); |
@head = ( 'static/frey.css' ); |
373 |
|
my $params = { request_url => $self->request_url }; |
374 |
@status = ( |
@status = ( |
375 |
{ 'ClassBrowser' => Frey::ClassBrowser->new( usage_on_top => 0 )->as_markup }, |
{ 'ClassBrowser' => Frey::ClassBrowser->new( %$params, usage_on_top => 0 )->as_markup }, |
376 |
{ 'Bookmarklets' => Frey::Bookmarklet->new->as_markup }, |
{ 'Bookmarklets' => Frey::Bookmarklet->new( %$params )->as_markup }, |
377 |
{ 'INC' => Frey::INC->new->as_markup }, |
{ 'INC' => Frey::INC->new( %$params )->as_markup }, |
378 |
); |
); |
379 |
$icon_html = ''; |
$icon_html = ''; |
380 |
} |
} |