/usr/share/perl5/auto/Config/Simple/import_from.al is in libconfig-simple-perl 4.59-6.
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 | # NOTE: Derived from blib/lib/Config/Simple.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Config::Simple;
#line 1366 "blib/lib/Config/Simple.pm (autosplit into blib/lib/auto/Config/Simple/import_from.al)"
# imports names from a file. Compare with import_names.
sub import_from {
my ($class, $file, $arg) = @_;
if ( ref($class) ) {
croak "import_from() is not an object method.";
}
# this is a hash support
if ( defined($arg) && (ref($arg) eq 'HASH') ) {
my $cfg = $class->new($file) or return;
map { $arg->{$_} = $cfg->param($_) } $cfg->param();
return $cfg;
}
# following is the original version of our import_from():
unless ( defined $arg ) {
$arg = (caller)[0];
}
my $cfg = $class->new($file) or return;
$cfg->import_names($arg);
return $cfg;
}
# end of Config::Simple::import_from
1;
|