projects
/
gitmo/Mouse.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
use Data::Util directly, instead of Class::Method::Modifiers::Fast.
[gitmo/Mouse.git]
/
t
/
900_mouse_bugs
/
006_RT69939.t
1
#!perl -w
2
3
package Foo;
4
use Mouse;
5
6
has bar => (
7
is => 'rw',
8
9
trigger => sub {
10
eval 'BEGIN{ die }';
11
},
12
default => sub {
13
eval 'BEGIN{ die }';
14
return 42;
15
},
16
);
17
18
sub BUILDARGS {
19
eval 'BEGIN{ die }';
20
return {};
21
}
22
23
sub BUILD {
24
eval 'BEGIN{ die }';
25
}
26
27
package main;
28
29
use Test::More tests => 3;
30
31
$@ = '(ERRSV)';
32
33
my $foo = Foo->new;
34
isa_ok $foo, 'Foo';
35
is $foo->bar, 42;
36
$foo->bar(100);
37
is $foo->bar, 100;
38
note("\$@=$@");