view release on metacpan or  search on metacpan

script/mg-init  view on Meta::CPAN

$options{workdir} //= getcwd;

chdir $options{workdir};

$options{workdir} = dir($options{workdir});

my $config = shift;

if ($config) {
    if($config eq '-') {
        # read updated config from stdout
        copy(\*STDIN, mgconfig);
    }
    elsif ($config =~ m{://}) {
        HTTP::Tiny->new->mirror($config, mgconfig);
    }
    else {
        copy($config, mgconfig);
    }
}