view release on metacpan or  search on metacpan

bin/devmode  view on Meta::CPAN

    my $base_config = "$HOME/.devmode/$base.rc";
    my $devmode     = "$HOME/.devmode.rc";
    my $config      = {};

    if ( -e $base_config ) {
        $config = eval { LoadFile($base_config) };

        # if no config found and we have an error assume that the file is old
        # format and try to require it and convert to YAML.
        if ( !$config && $@ ) {
            $config = require $base_config;
            DumpFile($base_config, $config);
        }
    }

    if ( -e $devmode ) {
        $config = { %{ LoadFile($devmode) }, %$config };
    }

    return $config
}