Lines Matching refs:sub
15 sub A::method { return ( 3, $_[0]->NEXT::method() ) }
16 sub A::DESTROY { $_[0]->NEXT::DESTROY() }
20 sub B::AUTOLOAD { return ( 9, $_[0]->NEXT::AUTOLOAD() )
22 sub B::DESTROY { $_[0]->NEXT::DESTROY() }
25 sub C::DESTROY { print "ok 23\n"; $_[0]->NEXT::DESTROY() }
29 sub D::method { return ( 2, $_[0]->NEXT::method() ) }
30 sub D::AUTOLOAD { return ( 8, $_[0]->NEXT::AUTOLOAD() ) }
31 sub D::DESTROY { print "ok 22\n"; $_[0]->NEXT::DESTROY() }
32 sub D::oops { $_[0]->NEXT::method() }
33 sub D::secondary { return ( 17, 18, map { $_+10 } $_[0]->NEXT::secondary() ) }
37 sub E::method { return ( 4, $_[0]->NEXT::method(), $_[0]->NEXT::method() ) }
38 sub E::AUTOLOAD { return ( 10, $_[0]->NEXT::AUTOLOAD() )
40 sub E::DESTROY { print "ok 24\n"; $_[0]->NEXT::DESTROY() }
43 sub F::method { return ( 5 ) }
44 sub F::AUTOLOAD { return ( 11 ) if $AUTOLOAD =~ /.*(missing_method|secondary)/ }
45 sub F::DESTROY { print "ok 25\n" }
48 sub G::method { return ( 6 ) }
49 sub G::AUTOLOAD { print "not "; return }
50 sub G::DESTROY { print "not ok 21"; return }
78 local *C::AUTOLOAD = sub { $_[0]->NEXT::method() };
86 *C::method = sub{ $_[0]->NEXT::AUTOLOAD() };