caveats/RT69939.t

   1 #!perl -w
   2 # See the CAVEATS section in Mouse.pm
   3 use strict;
   4 use Test::More;
   5
   6 {
   7     package Class;
   8     use Mouse;
   9
  10     has foo => (
  11         is  => 'rw',
  12
  13         default => sub{
  14             # Ticket #69939
  15             # See the Mouse manpage
  16
  17             #eval       'BEGIN{ die }';   # NG
  18             eval{ eval 'BEGIN{ die }' }; # OK
  19             ::pass 'in a default callback';
  20         },
  21     );
  22 }
  23
  24 pass "class definition has been done";
  25
  26 isa_ok(Class->new, 'Class');
  27
  28 done_testing;
  29