IO::Async Expect

#!/usr/bin/env perl

use v5.20;
use strict;
use warnings;

use IO::Async::Process;

use IO::Async::Loop;
my $loop = IO::Async::Loop->new;

my $p = IO::Async::Process->new(
  command => [ "/bin/mdb", "-k" ],
  stdio   => { via => "pipe_rdwr",
               on_read => sub { 0 },
             },

  on_finish => sub {
    say "mdb exited";
    $loop->stop;
  },
);

$loop->add( $p );

my $io = $p->stdio;

$io->read_until( '>' )->then(
  sub {
    my ($string, $eof) = @_;
    say "Got something";
    #$io->write( '$q' . "\n" );
  }
)->get();

$loop->run;