use Sub::Uplevel;

sub _exception_as_string {
    my $exception = shift;
    my $class = ref($exception);
    $exception = "$class ($exception)" 
            if $class && "$exception" !~ m/^\Q$class/;
	chomp($exception);
    return($exception);
};

{
    package Test::Exception::_NULL;
    use overload 
        q{""}   =>  sub { "${$_[0]}" },
        map { $_ => sub { return } } 
                ( qw( < <= > >= == != lt le gt ge eq ne bool ) ),
        fallback => 1;
    sub new { bless \$_[1], $_[0] };
};

sub live (&) {
	my $coderef = shift;
    my $value = eval { uplevel 2, $coderef };
	$value = Test::Exception::_NULL->new(
		"DIED: ". _exception_as_string($@)
	) if $@;
    $value;
};