}
sub illegal_options_for_inheritance {
- return qw(is reader writer accessor clearer predicate);
+ return qw(reader writer accessor clearer predicate);
}
sub clone_and_inherit_options{
extends 'Foo';
- ::throws_ok { has '+foo' => (is => 'rw') } qr/illegal/, "can't override is";
+ ::lives_ok { has '+foo' => (is => 'rw') } "can override is";
::throws_ok { has '+foo' => (reader => 'bar') } qr/illegal/, "can't override reader";
::lives_ok { has '+foo' => (clearer => 'baz') } "can override unspecified things";