use Test::More tests => 1;
use Scalar::Util qw(weaken);

{
    my $original = bless {},'My::Test::Class'; 
    my $copy = $original;
    weaken $original;
    ok defined($original), '$object still accessible';
}