+++ /dev/null
-#!perl -w
-# See the CAVEATS section in Mouse.pm
-use strict;
-use Test::More;
-
-{
- package Class;
- use Mouse;
-
- has foo => (
- is => 'rw',
-
- default => sub{
- # Ticket #69939
- # See the Mouse manpage
-
- #eval 'BEGIN{ die }'; # NG
- eval{ eval 'BEGIN{ die }' }; # OK
- ::pass 'in a default callback';
- },
- );
-}
-
-pass "class definition has been done";
-
-isa_ok(Class->new, 'Class');
-
-done_testing;
-