package L;
use warnings;
use strict;

use Devel::StackTrace;
our $DYING = 0;

sub include {
	my $file = shift;
	unless (my $return = do $file) {
		my $e;
		if ($@) { $e = "Couldn't parse $file: $@" }
		elsif (!defined $return) { $e = "Couldn't do $file: $!\n" }
		elsif (!$return) { $e = "Couldn't run $file\n" }
		if ($e) {
			# don't add a new stack trace if we're already dying
			die $@ if $DYING++;
			die join '', $e, map {"\t".$_->as_string."\n"}
				Devel::StackTrace->new(ignore_package=>__PACKAGE__)->frames;
		}
	}
}

1;