Gecko [ hyougo-truck-kaitori.com ]

Name	Size	Permission
AIO.pm	4.53 KB	-rw-r--r--
AnyEvent.pm	13.27 KB	-rw-r--r--
BDB.pm	1.48 KB	-rw-r--r--
Channel.pm	3.96 KB	-rw-r--r--
CoroAPI.h	4.57 KB	-rw-r--r--
Debug.pm	16.07 KB	-rw-r--r--
EV.pm	2.56 KB	-rw-r--r--
Event.pm	5.3 KB	-rw-r--r--
Handle.pm	13.5 KB	-rw-r--r--
Intro.pod	26.15 KB	-rw-r--r--
LWP.pm	3.92 KB	-rw-r--r--
MakeMaker.pm	3.66 KB	-rw-r--r--
RWLock.pm	2.13 KB	-rw-r--r--
Select.pm	3.74 KB	-rw-r--r--
Semaphore.pm	4.31 KB	-rw-r--r--
SemaphoreSet.pm	4.1 KB	-rw-r--r--
Signal.pm	2.24 KB	-rw-r--r--
Socket.pm	5.34 KB	-rw-r--r--
Specific.pm	1.79 KB	-rw-r--r--
State.pm	18.98 KB	-rw-r--r--
Storable.pm	3.68 KB	-rw-r--r--
Timer.pm	1.62 KB	-rw-r--r--
Util.pm	5.44 KB	-rw-r--r--
jit-amd64-unix.pl	2.69 KB	-rw-r--r--
jit-x86-unix.pl	2.89 KB	-rw-r--r--

Code Editor : Timer.pm

=head1 NAME

Coro::Timer - timers and timeouts, independent of any event loop

=head1 SYNOPSIS

# This package is mostly obsoleted by Coro::AnyEvent.

use Coro::Timer qw(timeout);
 # nothing exported by default

=head1 DESCRIPTION

This package has been mostly obsoleted by L<Coro::AnyEvent>, the only
really useful function left in here is C<timeout>.

=over 4

=cut

package Coro::Timer;

use common::sense;

use Carp ();
use base Exporter::;

use Coro ();
use Coro::AnyEvent ();

our $VERSION = 6.514;
our @EXPORT_OK = qw(timeout sleep);

# compatibility with older programs
*sleep = \&Coro::AnyEvent::sleep;

=item $flag = timeout $seconds

This function will wake up the current coroutine after $seconds seconds
and sets $flag to true (it is false initially).  If $flag goes out
of scope earlier then nothing happens.

This is used by Coro itself to implement the C<timed_down>, C<timed_wait>
etc. primitives. It is used like this:

sub timed_wait {
      my $timeout = Coro::Timer::timeout 60;

while (condition false) {
         Coro::schedule; # wait until woken up or timeout
         return 0 if $timeout; # timed out
      }

return 1; # condition satisfied
   }

=cut

sub timeout($) {
   my $current = $Coro::current;
   my $timeout;

bless [
      \$timeout,
      (AE::timer $_[0], 0, sub {
         $timeout = 1;
         $current->ready;
      }),
   ], "Coro::Timer::Timeout";
}

package Coro::Timer::Timeout;

sub bool { ${ $_[0][0] } }

use overload 'bool' => \&bool, '0+' => \&bool;

=back

=head1 AUTHOR/SUPPORT/CONTACT

Marc A. Lehmann <schmorp@schmorp.de>
   http://software.schmorp.de/pkg/Coro.html

=cut

${this.title}

Code Editor : Timer.pm