4 use Test::More tests => 5;
10 use MooseX::HasDefaults::RO;
18 predicate => 'has_blah',
22 can_ok(Person => qw(name));
23 ok(!Person->can('blah'));
25 my $person = Person->new(name => 'Joe', blah => 'secret');
26 is($person->name, 'Joe');
27 is($person->{blah}, 'secret', 'an attribute was created even though it has no accessor');
28 ok($person->has_blah);