Commit | Line | Data |
---|---|---|
13756394 | 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{ | |
5f692270 | 14 | # Ticket #69939 |
15 | # See the Mouse manpage | |
13756394 | 16 | |
5f692270 | 17 | #eval 'BEGIN{ die }'; # NG |
18 | eval{ eval 'BEGIN{ die }' }; # OK | |
13756394 | 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 |