#!perl
# https://rt.cpan.org/Ticket/Display.html?id=75313
use strict;
use Test::More tests => 1;

{
    package Foo;
    use Mouse;
    sub BUILD {
        $@ = "foo";
        #use Devel::Peek; Dump $@;
        my $x = $@;
        #use Devel::Peek; Dump $@;
        ::is $@, "foo";
    }
}

Foo->new;

done_testing;