4 use Test::More tests => 3;
26 ok(!$obj->attr, 'has + does not affect the superclass');
28 my $obj2 = Child->new;
29 ok($obj2->attr, 'has + combines child attribute with parent');
37 has '+nonexistent' => (
40 } qr/Could not find an attribute by the name of 'nonexistent' to inherit from/;