use Moose;
use overload '""' => \&_stringify, 'fallback' => 1;
-with qw/ Throwable::X /;
+with qw/ Throwable::X StackTrace::Auto /;
use Throwable::X -all;
sub _stringify {
my $self = shift;
- return "Error: " . $self->ident . " // " . $self->message;
+ return "Error: " . $self->ident . " // " . $self->message
+ . "\n" . $self->stack_trace->as_string;
}
no Moose;
-__PACKAGE__->meta->make_immutable;
+__PACKAGE__->meta->make_immutable( inline_constructor => 0 );
=head1 NAME
-Text::Tradition::Error - throwable error class for CollateX package
+Text::Tradition::Error - throwable error class for Tradition package
=head1 DESCRIPTION
A basic exception class to throw around, as it were.
-=cut
+=head1 LICENSE
+
+This package is free software and is provided "as is" without express
+or implied warranty. You can redistribute it and/or modify it under
+the same terms as Perl itself.
=head1 AUTHOR