29 lines
645 B
Perl
29 lines
645 B
Perl
package CW::Template::Error::500;
|
|
|
|
use Moo;
|
|
|
|
extends 'CW::Template';
|
|
|
|
sub render {
|
|
my ($self) = @_;
|
|
return [
|
|
h2 => { style => "margin: 0" } =>
|
|
[q[Something has gone terribly wrong.]],
|
|
div => [
|
|
p => { style => "margin: 0" } =>
|
|
["Please re-try whatever it is you were doing, later."],
|
|
img => {
|
|
class => 'alexandria',
|
|
src => "/static/images/alexandria_fire.jpg"
|
|
},
|
|
(
|
|
$self->ctx->{show_errors}
|
|
? ( p => [ $self->ctx->{error} ] )
|
|
: ()
|
|
)
|
|
]
|
|
];
|
|
}
|
|
|
|
1;
|