Lines Matching refs:AUTOLOAD
32 sub AUTOLOAD
36 my $wanted = $NEXT::AUTOLOAD || 'NEXT::AUTOLOAD';
37 undef $NEXT::AUTOLOAD;
57 unless $wanted_method eq 'AUTOLOAD';
59 map { (*{"${_}::AUTOLOAD"}{CODE}) ? "${_}::AUTOLOAD" : ()} @forebears
77 ($wanted_method=${$caller_class."::AUTOLOAD"}) =~ s/.*:://
78 if $wanted_method eq 'AUTOLOAD';
94 sub AUTOLOAD
98 my $wanted = $EVERY::AUTOLOAD || 'EVERY::AUTOLOAD';
99 undef $EVERY::AUTOLOAD;
115 unless $wanted_method eq 'AUTOLOAD';
133 @every = map { my $sub = "${_}::AUTOLOAD";
134 !*{$sub}{CODE} || $seen{$sub}++ ? () : "${_}::AUTOLOAD"
176 sub B::AUTOLOAD { print "$_[0]: B AUTOLOAD\n"; $_[0]->NEXT::AUTOLOAD() }
181 sub C::AUTOLOAD { print "$_[0]: C AUTOLOAD\n"; $_[0]->NEXT::AUTOLOAD() }
187 sub D::AUTOLOAD { print "$_[0]: D AUTOLOAD\n"; $_[0]->NEXT::AUTOLOAD() }
195 $obj->missing_method(); # Calls D::AUTOLOAD, B::AUTOLOAD, C::AUTOLOAD
224 Another typical use of redispatch would be in C<AUTOLOAD>'ed methods.
227 hope that some other C<AUTOLOAD> (above it, or to its left) might
236 Note that it is a fatal error for any method (including C<AUTOLOAD>)
260 C<NEXT::ACTUAL> is most commonly used in C<AUTOLOAD> methods, as a means to
261 decline an C<AUTOLOAD> request, but preserve the normal exception-on-failure
264 sub AUTOLOAD {
265 if ($AUTOLOAD =~ /foo|bar/) {
269 shift()->NEXT::ACTUAL::AUTOLOAD(@_);
273 By using C<NEXT::ACTUAL>, if there is no other C<AUTOLOAD> to handle the
275 a suitable C<AUTOLOAD>).