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' => ( |
67 |
is => 'rw', |
is => 'rw', |
68 |
isa => 'Int', |
isa => 'Int', |
69 |
# required => 1, # FIXME we can't have required fields with defaults because Frey::Action isn't smart enough and asks for them |
# required => 1, # FIXME we can't have required fields with defaults because Frey::Action isn't smart enough and asks for them |
70 |
default => 120, |
default => 250, |
71 |
); |
); |
72 |
|
|
73 |
my %escape = ('<'=>'<', '>'=>'>', '&'=>'&', '"'=>'"'); |
my %escape = ('<'=>'<', '>'=>'>', '&'=>'&', '"'=>'"'); |
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 |
} |
} |
466 |
warn "## multiline markers ", dump( $multiline_markers ), " -> $multiline_re"; |
warn "## multiline markers ", dump( $multiline_markers ), " -> $multiline_re"; |
467 |
|
|
468 |
sub log_path { |
sub log_path { |
469 |
$Frey::Bootstrap::log_path || warn "no log_path?"; |
$Frey::Bootstrap::log_path || die "no log_path?"; |
470 |
} |
} |
471 |
|
|
472 |
sub warnings_html { |
sub warnings_html { |
496 |
chomp; |
chomp; |
497 |
$line++; |
$line++; |
498 |
|
|
499 |
|
next if m{^\s+(Mojo|Class::MOP|Moose)::}; |
500 |
|
|
501 |
my $style = ''; |
my $style = ''; |
502 |
|
|
503 |
=for filter |
=for filter |