Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- # Produces no output when executed via morbo
- use Mojolicious::Lite;
- use Mojo::IOLoop;
- use Mojo::IOLoop::ReadWriteFork;
- my $fork = Mojo::IOLoop::ReadWriteFork->new;
- my $cat_result = '';
- $fork->on(error => sub {
- my($fork, $error) = @_;
- warn $error;
- });
- $fork->on(close => sub {
- my($fork, $exit_value, $signal) = @_;
- warn "got close event";
- print $cat_result;
- #Mojo::IOLoop->stop;
- });
- $fork->on(read => sub {
- my($fork, $buffer) = @_; # $buffer = both STDERR and STDOUT
- $cat_result .= $buffer;
- });
- $fork->start(
- program => 'ls',
- program_args => [ '-l', '/tmp' ],
- conduit => 'pty',
- );
- #Mojo::IOLoop->start unless Mojo::IOLoop->is_running;
- app->start;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement