10 has f => (is => 'ro', default => sub { 0 });
18 has f => (is => 'ro', default => sub { 1 });
36 has '+f' => (default => sub { 2 });
41 package ExtendsTheClass;
45 extends 'ClassyClass';
47 has '+f' => (default => sub { 3 });
55 ::like(::exception { has '+f' => () }, qr/\Qhas '+f'/, 'Kaboom');
58 is(UsesTheRole->new->f, 0, 'role attr');
59 is(ClassyClass->new->f, 1, 'class attr');
60 is(UsesTheRole2->new->f, 2, 'role attr with +');
61 is(ExtendsTheClass->new->f, 3, 'class attr with +');