#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 1;

{
    package Foo;
    use Moose;

    sub DEMOLISH {
        $@ = 1;
    }
}

{
    my $foo = Foo->new;
    $@ = 0;
}
is($@, 0, "properly localized");