#!/usr/bin/env perl
use v5.36.0;
my $in = MIDI::RtMidi::FFI::Device->new( type => 'in', name => 'in' );
my $out = MIDI::RtMidi::FFI::Device->new( type => 'out', name => 'out' );
$out->open_virtual_port( 'glitchy device' );
$in->open_port_by_name( 'glitchy device' );
# Oh no, something's about to go wrong - no 'note off' sent
$out->send_event( note_on => 0x00, 0x7f, 0x7f );
sleep 1;
# ...better hit the panic button
for my $channel ( 0x00..0x0f ) {
for my $note ( 0x00..0x7f ) {
$out->send_event( note_off => $channel, $note, 0x00 );
}
}