);
} "can't create attr with generative handles parameter and no isa";
- our $TODO;
-{
- local $TODO = 'handles => CODE is not supported';
::lives_ok {
has child_d => (
isa => "ChildD",
}
);
} "can't create attr with generative handles parameter and no isa";
-}
::lives_ok {
has child_e => (
);
} "can delegate to non moose class using explicit method list";
-{
- local $TODO = 'handles => CODE is not supported';
my $delegate_class;
::lives_ok {
has child_f => (
} "subrefs on non moose class give no meta";
::is( $delegate_class, "ChildF", "plain classes are handed down to subs" );
-}
::lives_ok {
has child_g => (