/ 
config-1.0
/ README.md

NAME

config - Perl module constant configurator

VERSION

1.0

SYNOPSIS

File lib/My/Query.pm:

    package My::Query;
    
    use config DB_NAME => "mizericordia";
    use config DB_HOST => "192.168.0.1";
    
    use config {
        DB_USER => "root",
        DB_PASSWORD => "pass",
    };
    
    our $connect = "mysql://" . DB_USER . ":" . DB_PASSWORD . "\@" . DB_HOST . "/" . DB_NAME;
    
    1;

File .config.pm:

    package config;
    
    config_module 'My::Query' => {
        DB_HOST => "mydb.com",
    };
    
    1;

What happened:

    use lib 'lib';
    use My::Query;
    
    $My::Query::connect # \> mysql://root:pass@mydb.com/mizericordia

DESCRIPTION

Config make constant as use constant, but it values substitutes on values from local config if exists.

Local config is the ./.config.pm in root folder of the project.

The project must start from this folder in order for the ./.config.pm to be read.

METHODS

import ($name, [$value])

    # One constant
    use config A => 10;
    
    # Multiconstants:
    use config {
        B => 3,
        C => 4,
    };
    
    A # => 10
    B # => 3
    C # => 4
    
    # And at runtime:
    config->import('D' => 5);
    
    D() # => 5
    
    # without params
    use config;

config_module MODULE => {...}

Subroutine use in local config (./.config.pm) for configure perl module. To do this, the config must have package config.

    # config_module at runtime set only runtime constants
    config::config_module 'main' => {
        D => 10,
        X => 12,
    };
    
    config->import('X' => 15);
    
    D() # => 5
    X() # => 12

INSTALL

Add to cpanfile in your project:

    on 'test' => sub {
            requires 'config', 
                    git => 'https://github.com/darviarush/perl-config.git',
                    ref => 'master',
            ;
    };

And run command:

    $ sudo cpm install -gvv

AUTHOR

Yaroslav O. Kosmina Lmailto:dart@cpan.org

LICENSE

⚖ GPLv3