• Files
• Commits
• Log
• Graph
• Stats

package LIMS::Local::Config;

# creates lims config as singleton instance - only requires cfg file read once

use strict;
use warnings;

use base qw(Class::Singleton);

use IO::Dir;
use Config::Auto;
use Data::Dumper;

sub _new_instance {
    my $class = shift;

    my $path_to_app_root = LIMS::Local::Utils::find_home(); # warn 'path_to_app_root:'.$path_to_app_root;

    my $d = IO::Dir->new($path_to_app_root . '/config')
	|| die "undefined \$d in $0", $@;

    my @config_files =
        map { $path_to_app_root . '/config/' . $_ }
            grep { $_ =~ /lims_(.*)\.pl$/ } # lims_*.pl
                $d->read; # warn Dumper \@config_files;

    my %combined = ();
    
    for my $file ( @config_files ) {
        my $cfg = Config::Auto::parse($file, format => 'perl');
        %combined = (%combined, %$cfg);
    } # warn Dumper \%combined;
    
    return \%combined;
}

1;