X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition%2FError.pm;h=0910175d25b11f2cd37447d8c7eaaf4b46f7b8ac;hb=a7f70834da6b7ade42f3c356e436b31216eafa0e;hp=14bfa79a16841639c3b2881b1b6d80f2c83ad9c5;hpb=861c3e272c65c7553ad7c03cca51cbdd561f126c;p=scpubgit%2Fstemmatology.git

diff --git a/lib/Text/Tradition/Error.pm b/lib/Text/Tradition/Error.pm
index 14bfa79..0910175 100644
--- a/lib/Text/Tradition/Error.pm
+++ b/lib/Text/Tradition/Error.pm
@@ -5,26 +5,31 @@ use warnings;
 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