#!/usr/bin/perl

use 5.010;

use strict;
use warnings;

use Test::More tests => 3;

eval {my $x = bless [], 'one'}; is $@, "";
eval {my $x = bless [], 'two'}; is $@, "";
eval {my $x = bless [], 'three'; die "foo\n";}; is $@, "foo\n";

sub one::DESTROY {1;}
sub two::DESTROY {$@ = "foo";}
sub three::DESTROY {$@ = "";}

__END__
1..3
ok 1
not ok 2
#   Failed test at /tmp/test line 11.
#          got: 'foo'
#     expected: ''
not ok 3
#   Failed test at /tmp/test line 12.
#          got: ''
#     expected: 'foo
# '
# Looks like you failed 2 tests of 3.