--- /dev/null
+#!perl -w
+
+package Foo;
+use Mouse;
+
+has bar => (
+ is => 'rw',
+
+ trigger => sub {
+ eval 'BEGIN{ die }';
+ },
+ default => sub {
+ eval 'BEGIN{ die }';
+ return 42;
+ },
+);
+
+sub BUILDARGS {
+ eval 'BEGIN{ die }';
+ return {};
+}
+
+sub BUILD {
+ eval 'BEGIN{ die }';
+}
+
+package main;
+
+use Test::More tests => 3;
+
+$@ = '(ERRSV)';
+
+my $foo = Foo->new;
+isa_ok $foo, 'Foo';
+is $foo->bar, 42;
+$foo->bar(100);
+is $foo->bar, 100;
+note("\$@=$@");