I would like to do something like this as the top of my program to allow the log level and log file for Log::StdLog to be specified in the configuration file.

use Config::Std;
use Readonly;
Readonly my $DEFAULT_LOG_LEVEL   => q{warn};
Readonly my $DEFAULT_LOG_FILE    => $PROGRAM_NAME . q{.log};
Readonly my $DEFAULT_CONFIG_FILE => $PROGRAM_NAME . q{.cfg};
read_config $DEFAULT_CONFIG_FILE => my %config;

use Log::StdLog {
    level => ($config{'log'}{'level'} || $DEFAULT_LOG_LEVEL), 
    file  => ($config{'log'}{'file' } || $DEFAULT_LOG_FILE )
};
[download]

The problem I'm running into is that I can't pass the Readonly variables to Log::StdLog since the use happens before the Readonly calls. I can solve the problem by using a BEGIN block (see below), but I'd like a way to do it that does not have the Readonly variables listed out twice.

my $EMPTY_STRING        ;
my $DEFAULT_LOG_LEVEL   ;
my $DEFAULT_LOG_FILE    ;
my $DEFAULT_CONFIG_FILE ;
my %config = ();

use Config::Std;
use Readonly;
BEGIN {
    Readonly    $EMPTY_STRING        => q{};
    Readonly    $DEFAULT_LOG_LEVEL   => q{warn};
    Readonly    $DEFAULT_LOG_FILE    => $PROGRAM_NAME . q{.log};
    Readonly    $DEFAULT_CONFIG_FILE => $PROGRAM_NAME . q{.cfg};
    read_config $DEFAULT_CONFIG_FILE => %config;
}

use Log::StdLog {
    level => ($config{'log'}{'level'} || $DEFAULT_LOG_LEVEL), 
    file  => ($config{'log'}{'file' } || $DEFAULT_LOG_FILE )
};
[download]

Ideas?

One route I did try was using the BEGIN block for the read_config line (for DEFAULT_CONFIG_FILE) and then using a require/import for the Log::StdLog call. The problem was STDLOG was not set up for use.

Thank you for the input!

Casey