projects
/
gitmo/Mouse.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Checking in changes prior to tagging of version 0.50_08. Changelog diff is:
[gitmo/Mouse.git]
/
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