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