2 # This is based on Class-MOP/t/312_anon_class_leak.t
8 eval "use Test::LeakTrace 0.10;";
9 plan skip_all => "Test::LeakTrace 0.10 is required for this test" if $@;
18 has simple => (is => 'rw');
20 has w_int => (is => 'rw', isa => 'Int');
22 => (is => 'rw', isa => 'Int | Undef');
23 has w_foo => (is => 'rw', isa => 'Foo');
24 has w_aint=> (is => 'rw', isa => 'ArrayRef[Int]');
47 $o->w_int_or_undef(10);
53 my $foo = bless {}, 'Foo';