dist/XSLoader/XSLoader_pm.PL

5 # We require DynaLoader to make sure that mod2fname is loaded
6 eval { require DynaLoader };
21 package DynaLoader;
23 # No prizes for guessing why we don't say 'bootstrap DynaLoader;' here.
25 boot_DynaLoader('DynaLoader') if defined(&boot_DynaLoader) &&
30     package DynaLoader;
53 # defined &DynaLoader::mod2fname catches most cases, except when
56 print OUT <<'EOT' if defined &DynaLoader::mod2fname || $Config{d_libname_unique};
60     $modfname = &DynaLoader::mod2fname(\@modparts) if defined &DynaLoader::mod2fname;
94         # We could just fall back to DynaLoader here, but then the rest of
108             # Not found.  Fall back to DynaLoader.
129     # This calls DynaLoader::bootstrap, which will load the .bs file if present
134     @DynaLoader::dl_require_symbols = ($bootname);
141       my $extra_arg = ', 1 ' if $DynaLoader::VERSION ge '1.37';
151     # this section of code: XYZ failed at line 123 of DynaLoader.pm.
161     push(@DynaLoader::dl_librefs,$libref);  # record loaded object
182     push(@DynaLoader::dl_modules, $module); # record loaded module
188     push(@DynaLoader::dl_shared_objects, $file); # record files loaded
192 # Can't test with DynaLoader->can('bootstrap_inherit') when building in the
193 # core, as XSLoader gets built before DynaLoader.
196     require DynaLoader;
197     goto \&DynaLoader::bootstrap_inherit;
225 For a more complicated interface, see L<DynaLoader>.  Many (most)
226 features of C<DynaLoader> are not implemented in C<XSLoader>, like for
229 =head2 Migration from C<DynaLoader>
231 A typical module using L<DynaLoader|DynaLoader> starts like this:
234     require DynaLoader;
236     our @ISA = qw( OnePackage OtherPackage DynaLoader );
249 In other words: replace C<require DynaLoader> by C<use XSLoader>, remove
250 C<DynaLoader> from C<@ISA>, change C<bootstrap> by C<XSLoader::load>.  Do not
254 Of course, if C<@ISA> contained only C<DynaLoader>, there is no need to have
286        require DynaLoader;
287        push @ISA, 'DynaLoader';
296 an antique Perl which has no C<XSLoader>, it falls back to using C<DynaLoader>.
303 What is described here is equally applicable to the L<DynaLoader|DynaLoader>
411 delegated to C<DynaLoader>, which looks for the DLL along the C<@INC> list.
432 L<DynaLoader>
437 Ilya Zakharevich originally extracted C<XSLoader> from C<DynaLoader>.