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("\$@=$@");