MojoliciousでエラーをJSONで返す

gistfile1.pl

#!/usr/bin/env perl
use Mojolicious::Lite;

hook before_render => sub {
  my ($c, $args) = @_;
  
  my $template = $args->{template};
  return unless $template;

  my $status = $args->{status};
  return unless $status >= 400;

  my $msg
    = ($status == 404)
    ? 'Not Found'
    : ($args->{exception} || 'Unknown Exception');

  $args->{json}
    = {error => {status => $status, message => $msg}};
};


app->renderer->default_format('json');

get '/' => sub {
    my $c = shift;
    $c->render( json => { message => "Welcome to the Mojolicious real-time web framework!" } );
};

app->start;

もっとスマートな方法なかったっけか？

ヘッダー考慮してなかった