--- cvsroot/EV/EV.pm	2007/10/29 07:24:37	1.10
+++ cvsroot/EV/EV.pm	2007/10/29 08:52:28	1.12
@@ -4,41 +4,62 @@
 
 =head1 SYNOPSIS
 
- use EV;
-
- # TIMER
-
- my $w = EV::timer 2, 0, sub {
-    warn "is called after 2s";
- };
-
- my $w = EV::timer 2, 1, sub {
-    warn "is called roughly every 2s (repeat = 1)";
- };
-
- undef $w; # destroy event watcher again
-
- # IO
-
- my $w = EV::timer_abs 0, 60, sub {
-    warn "is called every minute, on the minute, exactly";
- };
-
- my $w = EV::io \*STDIN, EV::READ | EV::PERSIST, sub {
-    my ($w, $events) = @_; # all callbacks get the watcher object and event mask
-    if ($events & EV::TIMEOUT) {
-       warn "nothing received on stdin for 10 seconds, retrying";
-    } else {
-       warn "stdin is readable, you entered: ", <STDIN>;
-    }
- };
- $w->timeout (10);
-
- # MAINLOOP
- EV::dispatch; # loop as long as watchers are active
- EV::loop;     # the same thing
- EV::loop EV::LOOP_ONCE;
- EV::loop EV::LOOP_ONSHOT;
+  use EV;
+  
+  # TIMER
+  
+  my $w = EV::timer 2, 0, sub {
+     warn "is called after 2s";
+  };
+  
+  my $w = EV::timer 2, 1, sub {
+     warn "is called roughly every 2s (repeat = 1)";
+  };
+  
+  undef $w; # destroy event watcher again
+  
+  my $w = EV::timer_abs 0, 60, sub {
+     warn "is called every minute, on the minute, exactly";
+  };
+  
+  # IO
+  
+  my $w = EV::io \*STDIN, EV::READ | EV::PERSIST, sub {
+     my ($w, $events) = @_; # all callbacks get the watcher object and event mask
+     if ($events & EV::TIMEOUT) {
+        warn "nothing received on stdin for 10 seconds, retrying";
+     } else {
+        warn "stdin is readable, you entered: ", <STDIN>;
+     }
+  };
+  $w->timeout (10);
+  
+  my $w = EV::timed_io \*STDIN, EV::READ, 30, sub {
+     my ($w, $events) = @_;
+     if ($_[1] & EV::TIMEOUT) {
+        warn "nothing entered within 30 seconds, bye bye.\n";
+        $w->stop;
+     } else {
+        my $line = <STDIN>;
+        warn "you entered something, you again have 30 seconds.\n";
+     }
+  };
+  
+  # SIGNALS
+  
+  my $w = EV::signal 'QUIT', sub {
+     warn "sigquit received\n";
+  };
+  
+  my $w = EV::signal 3, sub {
+     warn "sigquit received (this is GNU/Linux, right?)\n";
+  };
+  
+  # MAINLOOP
+  EV::dispatch; # loop as long as watchers are active
+  EV::loop;     # the same thing
+  EV::loop EV::LOOP_ONCE;     # block until some events could be handles
+  EV::loop EV::LOOP_NONBLOCK; # check and handle some events, but do not wait
 
 =head1 DESCRIPTION
 
@@ -57,7 +78,7 @@
 use strict;
 
 BEGIN {
-   our $VERSION = '0.02';
+   our $VERSION = '0.03';
    use XSLoader;
    XSLoader::load "EV", $VERSION;
 }
@@ -180,11 +201,21 @@
 
 The C<timer_abs_ns> variant doesn't add/start the newly created watcher.
 
-=item my $w = EV::signal $signum, $callback
+=item my $w = EV::signal $signal, $callback
+
+=item my $w = EV::signal_ns $signal, $callback
+
+Call the callback when $signal is received (the signal can be specified
+by number or by name, just as with kill or %SIG). Signal watchers are
+persistent no natter what.
 
-=item my $w = EV::signal_ns $signum, $callback
+EV will grab the signal for the process (the kernel only allows one
+component to receive signals) when you start a signal watcher, and
+removes it again when you stop it. Pelr does the same when you add/remove
+callbacks to %SIG, so watch out.
 
-Call the callback when signal $signum is received.
+Unfortunately, only one handler can be registered per signal. Screw
+libevent.
 
 The C<signal_ns> variant doesn't add/start the newly created watcher.