Mojo::CarpAlways

gistfile1.txt

package MojoCarpAlways;

use Mojo::Base -strict;
use Mojo::Exception;

*Mojo::Exception::to_string = sub  {
  my $self = shift;

  my $str = $self->message;
  $str .= join "\n", map { "  $_->[1]: " . $_->[2] } @{ $self->frames };
  return $str unless $self->verbose;

  $str .= "\n" unless $str =~ /\n$/;
  $str .= $_->[0] . ': ' . $_->[1] . "\n" for @{$self->lines_before};
  $str .= $self->line->[0] . ': ' . $self->line->[1] . "\n" if $self->line->[0];
  $str .= $_->[0] . ': ' . $_->[1] . "\n" for @{$self->lines_after};

  return $str;
};