| /openbsd-src/gnu/usr.bin/perl/cpan/NEXT/t/ |
| H A D | next.t | 16 our $AUTOLOAD;
17 sub B::AUTOLOAD { return ( 9, $_[0]->NEXT::AUTOLOAD() )
18 if $AUTOLOAD =~ /.*(missing_method|secondary)/ }
27 sub D::AUTOLOAD { return ( 8, $_[0]->NEXT::AUTOLOAD() ) }
35 sub E::AUTOLOAD { return ( 10, $_[0]->NEXT::AUTOLOAD() )
36 if $AUTOLOAD =~ /.*(missing_method|secondary)/ }
41 sub F::AUTOLOAD { return ( 11 ) if $AUTOLOAD =~ /.*(missing_method|secondary)/ }
46 sub G::AUTOLOAD { print "not "; return }
64 # TEST AUTOLOAD REDISPATCH (ok 8..11)
72 # AUTOLOAD'ED METHOD CAN'T REDISPATCH TO NAMED METHOD (ok 13)
[all …]
|
| /openbsd-src/gnu/usr.bin/perl/ext/XS-APItest/t/ |
| H A D | autoload.t | 20 *AUTOLOAD = *XS::APItest::AutoLoader::AUTOLOADp;
23 is prototype \&AUTOLOAD, '*$', 'prototype is unchanged';
26 is prototype \&AUTOLOAD, '*$', 'proto unchanged after embedded-null call';
29 is prototype \&AUTOLOAD, '*$', 'prototype is unchanged after Unicode call';
40 *a = \&AUTOLOAD;
62 *a = \&AUTOLOAD;
88 our $AUTOLOAD;
90 Test::More::ok(defined $AUTOLOAD);
91 return 1 if not defined $AUTOLOAD;
92 $main::the_method = $AUTOLOAD;
|
| H A D | svsetsv.t | 16 *AUTOLOAD = \&XS::APItest::AutoLoader::AUTOLOADp;
17 foo(\1); sv_set_deref(\&AUTOLOAD, '$', 0);
18 is prototype(\&AUTOLOAD), '$', 'sv_setsv(cv,...) sets prototype';
19 foo(\1); sv_set_deref(\&AUTOLOAD, '$', 1);
20 is prototype(\&AUTOLOAD), '$', 'sv_setpv(cv,...) sets prototype';
21 foo(\1); sv_set_deref(\&AUTOLOAD, '$', 2);
22 is prototype(\&AUTOLOAD), '$', 'sv_setpvn(cv,...) sets prototype';
|
| H A D | gv_autoload4.t | 14 our $AUTOLOAD;
16 is $subname, $AUTOLOAD, $message;
51 our $AUTOLOAD;
53 ::is $subname, $AUTOLOAD, $message;
|
| H A D | gv_fetchmeth_autoload.t | 23 local *AUTOLOAD = sub { 1 };
36 local *AUTOLOAD = sub { 1 };
69 local *AUTOLOAD = sub { 1 };
|
| /openbsd-src/gnu/usr.bin/perl/dist/SelfLoader/lib/ |
| H A D | SelfLoader.pm | 44 our @EXPORT = qw(AUTOLOAD);
55 AUTOLOAD {
56 our $AUTOLOAD;
57 print STDERR "SelfLoader::AUTOLOAD for $AUTOLOAD\n" if DEBUG;
58 my $SL_code = $Cache{$AUTOLOAD};
59 my $save = $@; # evals in both AUTOLOAD and _load_stubs can corrupt $@
63 $AUTOLOAD =~ m/^(.*)::/;
65 $SL_code = $Cache{$AUTOLOAD};
66 $SL_code = "sub $AUTOLOAD { }"
[all...] |
| /openbsd-src/gnu/usr.bin/perl/t/op/ |
| H A D | method.t | 150 BEGIN { *BB::e = \&C::e } # Shouldn't prevent AUTOLOAD in original pkg
157 sub BB::AUTOLOAD {
159 my $method = $BB::AUTOLOAD;
164 sub C::AUTOLOAD {
166 my $method = $C::AUTOLOAD;
188 *BB::AUTOLOAD = sub {
191 my $method = $::AUTOLOAD;
193 *$::AUTOLOAD = sub { "new B: In $method, $c" };
194 goto &$::AUTOLOAD;
296 sub AUTOLOAD {
[all …]
|
| /openbsd-src/gnu/usr.bin/perl/lib/ |
| H A D | utf8.pm | 9 our $AUTOLOAD;
20 goto &$AUTOLOAD if defined &$AUTOLOAD;
22 Carp::croak("Undefined subroutine $AUTOLOAD called");
|
| H A D | bytes.pm | 19 sub AUTOLOAD { global() subroutine
|
| /openbsd-src/gnu/usr.bin/perl/cpan/IPC-SysV/lib/IPC/ |
| H A D | SysV.pm | 14 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION $AUTOLOAD);
67 my $constname = $AUTOLOAD;
77 *$AUTOLOAD = sub { $val };
79 goto &$AUTOLOAD;
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Compress-Raw-Bzip2/lib/Compress/Raw/ |
| H A D | Bzip2.pm | 12 our ($VERSION, $XS_VERSION, @ISA, @EXPORT, $AUTOLOAD);
44 sub AUTOLOAD { subroutine
46 ($constname = $AUTOLOAD) =~ s/.*:://;
50 *{$AUTOLOAD} = sub { $val };
51 goto &{$AUTOLOAD};
|
| /openbsd-src/gnu/usr.bin/perl/dist/Time-HiRes/ |
| H A D | HiRes.pm | 57 our $AUTOLOAD;
58 sub AUTOLOAD { subroutine
60 ($constname = $AUTOLOAD) =~ s/.*:://;
61 # print "AUTOLOAD: constname = $constname ($AUTOLOAD)\n";
64 # print "AUTOLOAD: error = $error, val = $val\n";
71 *$AUTOLOAD = sub { $val };
73 goto &$AUTOLOAD;
|
| /openbsd-src/gnu/usr.bin/perl/ext/VMS-Stdio/ |
| H A D | Stdio.pm | 31 my($constname) = $AUTOLOAD;
36 *$AUTOLOAD = sub { $val; }
41 *$AUTOLOAD = eval "sub { shift->IO::File::$constname(\@_) }";
44 goto &$AUTOLOAD;
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Term-ANSIColor/lib/Term/ |
| H A D | ANSIColor.pm | 38 our $AUTOLOAD;
266 my ($sub, $attr) = $AUTOLOAD =~ m{
273 croak("undefined subroutine &$AUTOLOAD called");
283 $AUTOLOAD = $sub;
299 sub $AUTOLOAD {
324 goto &$AUTOLOAD;
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Digest/lib/ |
| H A D | Digest.pm | 59 our $AUTOLOAD;
63 my $algorithm = substr( $AUTOLOAD, rindex( $AUTOLOAD, '::' ) + 2 );
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Scalar-List-Utils/t/ |
| H A D | reftype.t | 53 sub AUTOLOAD {
54 our $AUTOLOAD;
55 warn "$AUTOLOAD called";
|
| H A D | refaddr.t | 77 sub AUTOLOAD {
78 our $AUTOLOAD;
79 warn "$AUTOLOAD called";
|
| /openbsd-src/gnu/usr.bin/perl/dist/Attribute-Handlers/lib/Attribute/ |
| H A D | Handlers.pm | 6 our $AUTOLOAD;
163 return if $AUTOLOAD =~ /::DESTROY$/;
164 my ($class) = $AUTOLOAD =~ m/(.*)::/g;
165 $AUTOLOAD =~ m/_ATTR_(.*?)_(.*)/ or
166 croak "Can't locate class method '$AUTOLOAD' via package '$class'";
|
| /openbsd-src/gnu/usr.bin/perl/cpan/AutoLoader/lib/ |
| H A D | AutoLoader.pm | 6 our($VERSION, $AUTOLOAD);
22 my $sub = $AUTOLOAD;
147 *{ $callpkg . '::AUTOLOAD' } = \&AUTOLOAD;
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/API/InterceptResult/ |
| H A D | Facet.pm | 12 our $AUTOLOAD;
13 sub AUTOLOAD { subroutine
16 my $name = $AUTOLOAD;
|
| /openbsd-src/gnu/usr.bin/perl/cpan/IO-Zlib/ |
| H A D | Zlib.pm | 295 our $AUTOLOAD;
591 sub AUTOLOAD subroutine
595 $AUTOLOAD =~ s/.*:://;
596 $AUTOLOAD =~ tr/a-z/A-Z/;
598 return tied(*{$self})->$AUTOLOAD(@_);
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/EventFacet/ |
| H A D | Meta.pm | 8 use vars qw/$AUTOLOAD/;
37 sub AUTOLOAD { subroutine
38 my $name = $AUTOLOAD;
|
| /openbsd-src/gnu/usr.bin/perl/os2/OS2/OS2-REXX/DLL/ |
| H A D | DLL.pm | 81 $AUTOLOAD =~ /^OS2::DLL::dll::.+::(.+)$/
82 or confess("Undefined subroutine &$AUTOLOAD called");
86 goto &$AUTOLOAD;
|
| /openbsd-src/gnu/usr.bin/perl/ext/B/t/ |
| H A D | concise.t | 200 our $AUTOLOAD = 'garbage';
201 sub AUTOLOAD { print "# in AUTOLOAD body: $AUTOLOAD\n" }
211 ($res,$err) = render('-basic', \&Bar::AUTOLOAD);
212 like ($res, qr/in AUTOLOAD body: /, "found body of Bar::AUTOLOAD");
362 like($out, qr/Config::AUTOLOAD exists in stash, but has no START/,
369 like($out, qr/Config::AUTOLOAD exists in stash, but has no START/,
|
| /openbsd-src/gnu/usr.bin/perl/cpan/CPAN/t/ |
| H A D | 02nox.t | 31 is( \&CPAN::Nox::AUTOLOAD, \&CPAN::AUTOLOAD, 'AUTOLOAD should be aliased' );
|