Schema CompUnit::Repo

Loader.pm6

no precompilation;
use Schema;
use lib "CompUnit::Repository::Red::Schema#";

main.p6

use lib ".";

use Schema;

say Bla

Schema.pm6

unit class CompUnit::Repository::Red::Schema does CompUnit::Repository;

has $!name;
has $.prefix;

submethod TWEAK(:$!name = 'redschema') {
    CompUnit::RepositoryRegistry.register-name($!name, self);
}

method id { "redschema" }

method loaded {[]}

method path-spec(--> Str:D)    { "redschema#{$!prefix}" }
method short-id(--> Str:D)     { 'redschema' }

method need(
    CompUnit::DependencySpecification  $spec,
    CompUnit::PrecompilationRepository $precomp = self.precomp-repository(),
    --> CompUnit:D) {
    return self.next-repo.need($spec) unless $spec.short-name eq "Schema";
    my $h = CompUnit::Loader.load-source( q"class Bla {}; say 'FOI'".encode );

    CompUnit.new(
        handle       => $h,
        short-name   => $spec.short-name,
        version      => Version.new("0.0.1"),
        auth         => "FCO",
        repo         => self,
        repo-id      => self.id,
        precompiled  => False,
        distribution => Distribution,
    );
}