use lib '.';
use Module::Loader;
my $loader = Module::Loader.new(module => 'Module::Loader');
my $compunit = $loader.compunit;
say $compunit.distribution.meta
use v6;
unit class Module::Loader;
subset ModuleName of Any where Any:U | Cool;
has ModuleName $.module;
has CompUnit::Repository $.root-repo = $*REPO;
has @!compunits;
has Int $.index is rw = 0;
method module-name() returns Str {
$.module // $.module.^name;
}
method spec() returns CompUnit::DependencySpecification {
CompUnit::DependencySpecification.new(short-name => $.module-name);
}
method available-compunits() returns Iterable {
@!compunits ||=
self.root-repo.resolve(self.spec);
}
method multiple() {
self.available-compunits.elems > 1;
}
method compunit() {
self.available-compunits[$!index];
}
sub describe-compunit(CompUnit $compunit --> Str) is export {
join IO.nl-out,
"Name (short-name): $compunit.short-name()",
"Distribution: $compunit.distribution()",
"Repo prefix: {$compunit.repo.perl}",
"Is-precompiled: $compunit.precompiled()",
}
=begin pod
=NAME Module::Loader
=begin SYNOPSIS
use Module::Loader;
my $loader = Module::Loader.new(<My::Module>);
my $compunit = $loader.compunit;
=end SYNOPSIS
=begin DESCRIPTION
This module searches for a module in the current list of repositories and
returns a C<CompUnit> for that module.
=end DESCRIPTION
=LICENSE This file is licensed under the same terms as perl itself.
=AUTHOR Doug Schrag <dmaestro@cpan.org>
=end pod
