gistfile1.txt

use Inline::Perl5;

my $gil = Lock.new;

sub p5() {
    my role Perl5Interpreter {
        has $.p5 = Inline::Perl5.new;
        has $.gil = $gil;
    }
    my $thread = $*THREAD;
    unless $thread.does(Perl5Interpreter) {
        $gil.protect: {
            $thread does Perl5Interpreter;
            $thread.p5.use('Atikon::DB::Timemngt');
            $thread.p5.use('DBD::Pg');
            $thread.p5.use('DBIx::Class::Storage::DBI');
        }
    }
    $thread.p5
}

await (^30).map: {
    start {
        say $*THREAD.id ~ ' ' ~ p5.Str;
        my $schema = p5.invoke('Atikon::DB::Timemngt', 'connect', 'dbi:Pg:database=timemngt');
        $schema.resultset('Customer').count.say;
    }
}