Log a stack trace on an error

LogTrace.pm

package Mojolicious::Plugin::LogTrace;

use Mojo::Base 'Mojolicious::Plugin';

use Scalar::Util 'blessed';

sub register {
  my ($plugin, $app, $config) = @_;
  my $log = $config->{log} || $app->log;
  $log->on(message => \&_trace);
}

sub _trace {
  my ($log, $level, $e) = @_;
  return unless $level eq 'error';
  return unless $e && blessed($e) && $e->isa('Mojo::Exception');
  $log->append(sprintf "[trace] %s at %s:%s\n", @{$_}[3,1,2]) for @{$e->frames};
}

1;