File Coverage

blib/lib/Tapper/Config.pm

Criterion	Covered	Total	%
statement	61	62	98.3
branch	18	26	69.2
condition	10	20	50.0
subroutine	16	16	100.0
pod	2	2	100.0
total	107	126	84.9

package Tapper::Config;
# git description: v4.1.2-2-g394d7ec

BEGIN {
  $Tapper::Config::AUTHORITY = 'cpan:TAPPER';
}
{
  $Tapper::Config::VERSION = '4.1.3';
}
# ABSTRACT: Tapper - Context sensitive configuration hub for all Tapper libs

use 5.010;

use strict;
use warnings;

use YAML::Syck;
use File::Slurp         'slurp';
use File::ShareDir      'module_file';
use Hash::Merge::Simple 'merge';
use File::ShareDir 'module_file';


# --- The configuration file is lib/auto/Tapper/Config/tapper.yml ---
{
        # closure to forbid direct access to the config hash
        my $Config;



        sub default_merge
        {
                my ($config) = @_;

                no warnings 'uninitialized'; # $ENV{HOME} can be undef

                my $env_config_file    = $ENV{TAPPER_CONFIG_FILE} || "";
                my $user_config_file   = "$ENV{HOME}/.tapper/tapper.cfg";
                my $global_config_file = "/etc/tapper.cfg";

                my $new_config;
                my $new_config_file;

                $new_config_file =
                 (exists $ENV{TAPPER_CONFIG_FILE}) ? $env_config_file
                 : (-e $user_config_file   && !$ENV{HARNESS_ACTIVE}) ? $user_config_file
                 : (-e $global_config_file && !$ENV{HARNESS_ACTIVE}) ? $global_config_file
                 : undef;

                if ($new_config_file) {
                        eval { $new_config = LoadFile($new_config_file) };
                        die "Can not load config file '$new_config_file': $@\n" if $@;
                        $config = merge($config, $new_config);
                }
                return $config;
        }

        sub _getenv
        {
                return
                    $ENV{HARNESS_ACTIVE} ? 'test'
                        : $ENV{TAPPER_DEVELOPMENT} ? 'development'
                            : 'live';
        }


        # TODO: automatically recognize context switch
        sub _switch_context
        {
                shift if @_ && $_[0] && $_[0] eq 'Tapper::Config'; # throw away class if called as method

                my $env = shift // _getenv();

                return unless $env =~ /^test|live|development$/;

                my $yaml = slurp module_file('Tapper::Config', 'tapper.yml');
                $Config  = Load($yaml);
                $Config  = default_merge($Config);

                $Config  = merge( $Config, $Config->{$env} );
                $Config  = _prepare_special_entries( $Config );
        }


        sub _prepare_special_entries {
                my ($Config) = @_;

                # Log4Perl: prepend sharedir path
                if (not $Config->{files}{log4perl_cfg} =~ m,^/,) {
                        $Config->{files}{log4perl_cfg} = module_file('Tapper::Config', $Config->{files}{log4perl_cfg});
                }

                # DB config can be overridden triggered by env var
                my $dbms = $ENV{TAPPERDBMS};
                if ($dbms and _getenv ne 'test') {
                        if ($dbms =~ m/^mysql|postgresql$/) {
                                foreach (qw(TestrunDB ReportsDB HardwareDB)) {
                                        my $val = $Config->{database}{by_TAPPERDBMS}{$dbms}{$_};
                                        $Config->{database}{$_} = $val if defined $val;
                                }
                        } else {
                                die 'Unsupported Tapper DBMS $TAPPERDBMS='.$ENV{TAPPERDBMS};
                        }
                }
                return $Config;
        }

        sub subconfig { $Config }

}

BEGIN { _switch_context() }

1;


__END__