add an example for watching a file descriptor

mojolicious · Feb 15, 2015 · e24f589 · e24f589
1 parent fa66e86
commit e24f589
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/lib/Mojo/IOLoop.pm b/lib/Mojo/IOLoop.pm
@@ -613,6 +613,13 @@ loop object from everywhere inside the process.
   my $id = Mojo::IOLoop->timer(3 => sub { say 'Timeout!' });
   Mojo::IOLoop->singleton->reactor->again($id);
 
+  # Watch if file descriptor becomes readable
+  my $handle = IO::Handle->new_from_fd($fd, 'r');
+  Mojo::IOLoop->singleton->reactor->io($handle => sub {
+    my ($reactor, $writable) = @_;
+    say $writable ? 'Descriptor is writable' : 'Descriptor is readable';
+  })->watch($handle, 1, 0);
+
 =head2 start
 
   Mojo::IOLoop->start;