/usr/share/perl5/Lingua/Stem/AutoLoader.pm is in liblingua-stem-perl 0.84-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 | package Lingua::Stem::AutoLoader;
# $RCSfile: AutoLoader.pm,v $ $Revision: 1.2 $ $Date: 1999/06/17 21:59:24 $ $Author: snowhare $
=head1 NAME
Lingua::Stem::AutoLoader - A manager for autoloading Lingua::Stem modules
=head1 SYNOPSIS
use Lingua::Stem::AutoLoader;
=head1 DESCRIPTION
Sets up the autoloader to load the modules in the Lingua::Stem system on demand.
Lingua::Stem::Da - Danish
Lingua::Stem::De - German
Lingua::Stem::En - English
Lingua::Stem::Fr - French
Lingua::Stem::Gl - Galician
Lingua::Stem::It - Italian
Lingua::Stem::No - Norwegian
Lingua::Stem::Ru - Rusian
Lingua::Stem::Pt - Portuguese
Lingua::Stem::Sv - Swedish
=head1 CHANGES
1.03 2004.07.25 - Added 'Lingua::Stem::Ru'
1.02 2004.04.26 - Added 'Lingua::Stem::Fr'
1.01 2003.04.05 - Added 'Lingua::Stem::De', 'Lingua::Stem::Da',
'Lingua::Stem::Gl', 'Lingua::Stem::It',
'Lingua::Stem::No', 'Lingua::Stem::Pt',
'Lingua::Stem::Sv',
to the list of autoloaded modules.
=cut
use strict;
use vars qw($VERSION $AUTOLOAD);
$VERSION = "1.02";
my $_autoloaded_functions = {};
my @packageslist = (
'Lingua::Stem::De',
'Lingua::Stem::En',
'Lingua::Stem::Fr',
'Lingua::Stem::Da',
'Lingua::Stem::Gl',
'Lingua::Stem::It',
'Lingua::Stem::No',
'Lingua::Stem::Pt',
'Lingua::Stem::Sv',
'Lingua::Stem::EnBroken',
);
my $autoloader =<<'EOF';
package ----packagename----;
use vars qw($AUTOLOAD);
sub AUTOLOAD {
return if ($AUTOLOAD =~ m/::(END|DESTROY)$/o);
if (exists $_autoloaded_functions->{$AUTOLOAD}) {
die("Attempted to autoload function '$AUTOLOAD' more than once - does it exist?\n");
}
$_autoloaded_functions->{$AUTOLOAD} = 1;
my ($packagename) = $AUTOLOAD =~ m/^(.*)::[A-Z_][A-Z0-9_]*$/ois;
eval ("use $packagename;");
if ($@ ne '') {
die ("Unable to use packagename: $@\n");
}
goto &$AUTOLOAD;
}
EOF
my $fullload = '';
foreach my $packagename (@packageslist) {
my ($loader) = $autoloader;
$loader =~ s/(----packagename----)/$packagename/;
$fullload .= $loader;
}
eval $fullload;
if ($@ ne '') {
die ("Failed to initialize AUTOLOAD: $@\n");
}
=head1 COPYRIGHT
Copyright 1999, Benjamin Franz (<URL:http://www.nihongo.org/snowhare/>) and
FreeRun Technologies, Inc. (<URL:http://www.freeruntech.com/>). All Rights Reserved.
This software may be copied or redistributed under the same terms as Perl itelf.
=head1 AUTHOR
Benjamin Franz
=head1 TODO
Nothing.
=cut
1;
|