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 => sub { |
29 |
|
cluck "undefined request_url"; |
30 |
|
'/'; |
31 |
|
}, |
32 |
); |
); |
33 |
|
|
34 |
has 'title' => ( |
has 'title' => ( |
373 |
sub clean_status { |
sub clean_status { |
374 |
my ($self) = shift; |
my ($self) = shift; |
375 |
@head = ( 'static/frey.css' ); |
@head = ( 'static/frey.css' ); |
376 |
|
my $params = { request_url => $self->request_url }; |
377 |
@status = ( |
@status = ( |
378 |
{ 'ClassBrowser' => Frey::ClassBrowser->new( usage_on_top => 0 )->as_markup }, |
{ 'ClassBrowser' => Frey::ClassBrowser->new( %$params, usage_on_top => 0 )->as_markup }, |
379 |
{ 'Bookmarklets' => Frey::Bookmarklet->new->as_markup }, |
{ 'Bookmarklets' => Frey::Bookmarklet->new( %$params )->as_markup }, |
380 |
{ 'INC' => Frey::INC->new->as_markup }, |
{ 'INC' => Frey::INC->new( %$params )->as_markup }, |
381 |
); |
); |
382 |
$icon_html = ''; |
$icon_html = ''; |
383 |
} |
} |
537 |
$msg = qq|<span class="$class">$msg</span>|; |
$msg = qq|<span class="$class">$msg</span>|; |
538 |
} |
} |
539 |
|
|
540 |
$msg .= $spacer . |
#$msg .= $spacer . qq|<a target="editor" href="/editor+$path+$line" style="float: right;">$line</a>\n|; |
541 |
qq|<a target="editor" href="/editor+$path+$line" style="float: right;">+$line</a>\n|; |
$msg = qq|<a target="editor" href="/editor+$path+$line" style="float: right;">$line</a>$msg| |
542 |
|
. ( $spacer ? $spacer : '' ) |
543 |
|
. "\n"; # XXX <pre> needs this |
544 |
|
|
545 |
$warnings[ $pos++ % $max ] = $msg; |
$warnings[ $pos++ % $max ] = $msg; |
546 |
} |
} |
551 |
my $size = -s $path; |
my $size = -s $path; |
552 |
|
|
553 |
my $warnings = join("", |
my $warnings = join("", |
554 |
map { $warnings[ ( $pos + $_ ) % $max ] || '' } 1 .. $max |
map { $warnings[ ( $pos + $_ ) % $max ] || '' } 0 .. ( $max - 1 ) |
555 |
); |
); |
556 |
|
|
557 |
my $s = length($warnings); |
my $s = length($warnings); |