use strict;
use warnings;
use Test qw( plan ok );

plan( tests => 12 );

sub Test {
    my $first= "None";
    my $end= "None";
    eval q{
        {
            local $@
                if  $_[0];
            eval 'die "DoNotLeak\n"';
            die "DoNotHide\n"
                if  $_[1];
            $first= $@;
        }
        $end= $@;
    };
    chomp
        for $first, $end;
    return( $first, $end );
}

while(  <DATA>  ) {
    my( $local, $die, $one, $two, $three )= split /\s*,/, $_;
    $@= "Before";
    my( $first, $end )= Test( $local, $die );
    ok( $first, $one,   "local:$local die:$die 1" );
    ok( $end,   $two,   "local:$local die:$die 2" );
    ok( $@,     $three, "local:$local die:$die 3" );
}
__END__
0,0,DoNotLeak,DoNotLeak,,
1,0,DoNotLeak,Before   ,,
0,1,None     ,None     ,DoNotHide
1,1,None     ,None     ,DoNotHide