Skip to content

Instantly share code, notes, and snippets.

@niner

niner/module-source.pl

Last active December 15, 2016 19:21
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 2 You must be signed in to fork a gist
  • Save niner/06792102587a79940294 to your computer and use it in GitHub Desktop.
Save niner/06792102587a79940294 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
module-source.pl
#!/usr/bin/env perl6
use v6.c;
sub MAIN(Str $module) {
my $cu = $*REPO.need(CompUnit::DependencySpecification.new(:short-name($module)));
say "Dist: " ~ $cu.repo.prefix.child('dist/' ~ $cu.distribution.id);
say "Source: " ~ $cu.repo.prefix.child('sources/' ~ $cu.distribution.provides{$module}.values[0]<file>);
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment