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