Skip to content

Instantly share code, notes, and snippets.

@tadzik
Created May 1, 2016 13:29
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tadzik/dc5c12cab0dc141167fb850f9ede2117 to your computer and use it in GitHub Desktop.
Save tadzik/dc5c12cab0dc141167fb850f9ede2117 to your computer and use it in GitHub Desktop.
#!/usr/bin/env perl6
use lib 'lib';
use Module::Toolkit;
my $mt = Module::Toolkit.new;
multi MAIN('is-installed', $what) {
say $mt.is-installed: $what;
}
multi MAIN('list') {
say .name for $mt.project-list.sort(*.name.lc);
}
multi MAIN('install', $path) {
$mt.install($path.IO, :force);
}
multi MAIN('fetch', $name, $to = $name) {
my $dist = $mt.get-project($name);
$mt.fetch($dist, $to);
}
multi MAIN('test', $path) {
$mt.test($path.IO);
}
multi MAIN('deps', $name) {
$mt.get-dependencies($mt.get-project($name))».name.perl.say;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment