=pod
-This tests the more complex
-delegation cases and that they
+This tests the more complex
+delegation cases and that they
do not fail at compile time.
=cut
} "subrefs on non moose class give no meta";
::is( $delegate_class, "ChildF", "plain classes are handed down to subs" );
-
+
::lives_ok {
has child_g => (
isa => "ChildG",
default => sub { ChildG->new },
handles => ["child_g_method_1"],
);
- } "can delegate to object even without explicit reader";
+ } "can delegate to object even without explicit reader";
sub parent_method { "p" }
}
ok( !$p->can($_), "none of ChildD's methods ($_)" )
- for grep { /^child/ } map { $_->{name} } ChildD->meta->compute_all_applicable_methods();
+ for grep { /^child/ } map { $_->name } ChildD->meta->get_all_methods();
can_ok( $p, "child_c_method_3_la" );
can_ok( $p, "child_c_method_4_la" );