[ViewVC] Diff of: cvs/Coro/Coro/Debug.pm

Comparing Coro/Coro/Debug.pm (file contents):
Revision 1.78 by root, Fri May 29 07:01:18 2009 UTC vs.
Revision 1.79 by root, Wed Jun 17 03:45:34 2009 UTC

 use Coro ();
 use Coro::Handle ();
 use Coro::State ();
 use Coro::AnyEvent ();
+use Coro::Timer ();
 our $VERSION = 5.132;
 our %log;
 our $SESLOGLEVEL = exists $ENV{PERL_CORO_DEFAULT_LOGLEVEL} ? $ENV{PERL_CORO_DEFAULT_LOGLEVEL} : -1;
          last;
       } elsif ($cmd =~ /^(?:ll|loglevel)\s*(\d+)?\s*/) {
          $loglevel = defined $1 ? $1 : -1;
+      } elsif ($cmd =~ /^(?:w|watch)\s*([0-9.]*)\s+(.*)/) {
+         my ($time, $cmd) = ($1*1 || 1, $2);
+         my $cancel;
+         Coro::async {
+            $Coro::current->{desc} = "watch $cmd";
+            select $fh;
+            until ($cancel) {
+               command $cmd;
+               Coro::Timer::sleep $time;
+            }
+         };
+         $fh->readable;
+         $cancel = 1;
       } elsif ($cmd =~ /^help\s*/) {
          command $cmd;
          print <<EOF;
 loglevel <int>		enable logging for messages of level <int> and lower
+watch <time> <command>  repeat the given command until STDIN becomes readable
 exit			end this session
 EOF
       } else {
          command $cmd;
       }

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines