view release on metacpan or  search on metacpan

bin/simplenotesync  view on Meta::CPAN

              $p{message};
            return $str;
        };

        $logger->add(
            Log::Dispatch::File->new(
                name      => 'debug_file',
                min_level => 'debug',
                filename  => $PROGNAME . '_debug.log',
                newline   => 1,
                callbacks => $sub,
            ));
    }

    Log::Any::Adapter->set('Dispatch', dispatcher => $logger);
}

sub get_config {
    my $conf_dir  = Path::Class::Dir->new(File::BaseDir->config_home);
    my $conf_file = $conf_dir->file("$PROGNAME.ini");
    $logger->debug("Trying to read config from $conf_file");