6 use Test::More tests => 5;
8 BEGIN { use_ok('Class::C3::XS') }
13 sub next_proxy { goto &next::method }
14 sub maybe_proxy { goto &maybe::next::method }
15 sub can_proxy { goto &next::can }
21 # baz doesn't exist intentionally
26 sub foo { shift->Proxy::next_proxy() }
27 sub bar { shift->Proxy::maybe_proxy() }
28 sub baz { shift->Proxy::maybe_proxy() }
29 sub quux { shift->Proxy::can_proxy()->() }
32 is(TTop->foo, 42, 'proxy next::method via goto');
33 is(TTop->bar, 24, 'proxy maybe::next::method via goto');
34 is(TTop->baz, undef, 'proxy maybe::next::method via goto with no method');
35 is(TTop->quux, 242, 'proxy next::can via goto');