Carp::Always makes backtraces SUCK more for some reason.

Broken.pm

package Foo::Controller::Broken;

use Moose;
extends 'Catalyst::Controller';

sub broken : Local : Args(0) {
  my ( $c ) = shift;
  # this is an intentional syntax error.
  $c->foo

  return 1;
}


1;

Foo.pm

package Foo;

use utf8;
use Moose;

extends 'Catalyst';
__PACKAGE__->config( name => 'Foo' );
__PACKAGE__->setup();


1;

output with carp::always.txt

perl t.pl                                                       
syntax error at t.pl line 8

output without Carp::Always

syntax error at lib/Foo/Controller/Broken.pm line 13, near "->foo

  return"
BEGIN not safe after errors--compilation aborted at lib/Foo/Controller/Broken.pm line 14.
Compilation failed in require at /usr/lib64/perl5/vendor_perl/5.10.1/Catalyst/Utils.pm line 280.
Compilation failed in require at t.pl line 8.

t.pl

#!/usr/bin/perl
use strict;
use warnings;

use lib 'lib';

# Commenting this line out produces *Better* backtraces.

use Carp::Always;

# The error should not appear to come from here :/
require Foo;