view release on metacpan or  search on metacpan

t/10run.t  view on Meta::CPAN

      gen  => sub {
         $count++;
         $f->done( "Ready" ) if $count > 5;
         return Future->done;
      },
   );

   my $run_f = $selector->run_until_ready( $f );

   ok( $run_f->is_ready, '->run_until_ready completed' );
   is( $count, 6, 'Loop stopped after 6 iterations' );
   is( [ $run_f->get ], [ "Ready" ], 'run future yields completion result' );
}

done_testing;