431 |
my $self = shift; |
my $self = shift; |
432 |
my $error = join(" ", @_); |
my $error = join(" ", @_); |
433 |
|
|
434 |
|
if ( $error =~ m{<error>(.+)</error>}s ) { |
435 |
|
return qq|<div class="frey-error frey-fatal">$1</div>|; |
436 |
|
} |
437 |
|
|
438 |
my $fatal = ''; |
my $fatal = ''; |
439 |
my $backtrace = ''; |
my $backtrace = ''; |
440 |
|
|
482 |
|
|
483 |
Called at beginning of each request |
Called at beginning of each request |
484 |
|
|
485 |
$self->clean_status; |
$self->setup_request; |
486 |
|
|
487 |
=cut |
=cut |
488 |
|
|
489 |
sub clean_status { |
sub setup_request { |
490 |
my ($self) = shift; |
my ($self) = shift; |
491 |
warn "## clean_status"; |
warn "## clean_status"; |
492 |
@head = ( 'static/frey.css' ); |
@head = ( 'static/frey.css' ); |
718 |
return $t; |
return $t; |
719 |
} |
} |
720 |
|
|
721 |
|
no Moose::Role; |
722 |
|
|
723 |
1; |
1; |