view release on metacpan or  search on metacpan

lib/Config/Setting/FileProvider.pm  view on Meta::CPAN

        my $self = {
                Env => "SETTINGS_FILES",
                Paths => [ $default ],
                %args,
                Files => [ ],   # Must not be overridden!
        };
        bless $self, $class;
        return $self->_init();
}

sub _init() {
        my $self  = shift;
        my @files = @{ $self->{ Paths } };

        # Allow listed files to be overridden by a hostname-specific
        # one.
        my $hn = hostname;
        @files = map { $_, "$_.$hn" } @files;

        # Always allow the environment to override previous choices.
        my $envvar = $self->{ Env };