/usr/share/perl5/auto/Config/Simple/vars.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 31 32 33 34 35 | # 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 1313 "blib/lib/Config/Simple.pm (autosplit into blib/lib/auto/Config/Simple/vars.al)"
# Following methods are loaded on demand.
# returns all the keys as a hash or hashref
sub vars {
my $self = shift;
# it might seem we should have used get_param() or param()
# methods to make the task easier, but param() itself uses
# vars(), so it will result in a deep recursion
my %vars = ();
my $syntax = $self->{_SYNTAX} or die "'_SYNTAX' is not defined";
if ( $syntax eq 'ini' ) {
while ( my ($block, $values) = each %{$self->{_DATA}} ) {
while ( my ($k, $v) = each %{$values} ) {
$vars{"$block.$k"} = (@{$v} > 1) ? $v : $v->[0];
}
}
} else {
while ( my ($k, $v) = each %{$self->{_DATA}} ) {
$vars{$k} = (@{$v} > 1) ? $v : $v->[0];
}
}
return wantarray ? %vars : \%vars;
}
# end of Config::Simple::vars
1;
|