1 package Catalyst::Exception::Basic;
5 use namespace::clean -except => 'meta';
7 with 'Catalyst::Exception::Interface';
12 default => sub { $! || '' },
21 return $self->message;
24 around BUILDARGS => sub {
25 my ($next, $class, @args) = @_;
26 if (@args == 1 && !ref $args[0]) {
27 @args = (message => $args[0]);
30 my $args = $class->$next(@args);
31 $args->{message} ||= $args->{error}
32 if exists $args->{error};
39 my $error = $class->new(@_);
40 local $Carp::CarpLevel = 1;