Trying to make ScorePlayer not block - Grrr!

rtmidi-callback.pl

# ...

sub score_send ($score) {
    $loop->add(
        IO::Async::Timer::Countdown->new(
            delay     => 0,
            on_expire => sub { $score->play }
        )->start
    );
}
sub drum_part ($note) {
    # warn __PACKAGE__,' L',__LINE__,' ',,"N: $note\n";
    my $part;
    if ($note == 99) {
        $part = sub {
            my (%args) = @_;
            $args{drummer}->metronome4;
        };
    }
    else {
        $part = sub {
            my (%args) = @_;
            $args{drummer}->note($args{drummer}->sixtyfourth, $note);
        };
    }
    return $part;
}
sub drums ($event) {
    my ($ev, $channel, $note, $vel) = $event->@*;
    return 1 unless $ev eq 'note_on';
    my $part = drum_part($note);
    my $d = MIDI::Drummer::Tiny->new(bpm => 100);
    my $score_player = MIDI::RtMidi::ScorePlayer->new(
      device   => $midi_out,
      score    => $d->score,
      common   => { drummer => $d },
      parts    => [ $part ],
      sleep    => 0,
      infinite => 0,
      # dump     => 1,
    );
    score_send($score_player);
    return 0;
}