Skip to content

Instantly share code, notes, and snippets.

#!/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>);
}
@teodozjan
teodozjan / incomplete.pl
Last active August 29, 2015 14:01 — forked from moritz/meta.pl
use v6;
multi sub trait_mod:<is>(Method $m, :$must!){
note "trait only if stub is present in base class activated"
}
multi sub trait_mod:<is>(Method $m, :$override!){
note "trait only if method overrides activated";
}