view release on metacpan or  search on metacpan

lib/AAC/Pvoice/Input.pm  view on Meta::CPAN

sub _initmonitor
{
    my $self = shift;
    # The event for the adremo device
    $self->{window}->{adremotimer} = Wx::Timer->new($self->{window},my $tid = Wx::NewId());
    EVT_TIMER($self->{window}, $tid, \&_monitorport);
}

sub _initautoscan
{
    my $self = shift;
    $self->{window}->{onebuttontimer} = Wx::Timer->new($self->{window},my $obtid = Wx::NewId());
    EVT_TIMER($self->{window}, $obtid, sub{my $self = shift; $self->{input}->{next}->() if $self->{input}->{next}});
}

sub StartMonitor
{
    my $self = shift;
    $self->{window}->{adremotimer}->Start($self->{window}->{Interval}, 0) # 0 is continuous
                                                if $self->{window}->{adremotimer};
}

sub QuitMonitor
{
    my $self = shift;
    # stop the timer for the port monitor
    $self->{window}->{adremotimer}->Stop() if  $self->{window}->{adremotimer} && $self->{window}->{adremotimer}->IsRunning;
}

sub StartAutoscan
{
    my $self = shift;
    $self->{window}->{onebuttontimer}->Start($self->{window}->{OneButtonInterval}, 0)  # 0 is continuous
                                                if $self->{window}->{onebuttontimer};
}

sub QuitAutoscan
{
    my $self = shift;
    $self->{window}->{onebuttontimer}->Stop() if  $self->{window}->{onebuttontimer} && $self->{window}->{onebuttontimer}->IsRunning;
}

sub PauseMonitor
{
    my $self = shift;

lib/AAC/Pvoice/Input.pm  view on Meta::CPAN

#----------------------------------------------------------------------
# This sub is used to monitor the parallel port for the adremo device
sub _monitorport
{
    # BEWARE: $self is the wxWindow subclass the timer
    # belongs to!
    my ($self, $event) = @_;
    # do nothing if the device is not adremo or
    # if we're already running
    return if ($self->{monitorrun}                           || 

lib/AAC/Pvoice/Input.pm  view on Meta::CPAN

=head1 USAGE

=head2 new($window)

This constructor takes the window (AAC::Pvoice::Panel typically) on which
the events and timer will be called as a parameter.
If the configuration (read using Wx::ConfigBase::Get) has a key called
'Device' (which can be set to 'icon', 'keys' , 'mouse' or 'adremo') is set to 'adremo', it
will start polling the parallel port every x milliseconds, where x is the
value of the configuration key 'Interval'. This setting is only useful if you connect
an "Adremo" electrical wheelchair to the parallel port of your PC (for more

lib/AAC/Pvoice/Input.pm  view on Meta::CPAN

=head2 newchild($window)

This semi-constructor takes the window (usually a child of the panel you
passed to the new() constructor, on which the events will be called as a parameter.
It doesn't start the timers for polling the parallel port and automatic
invocation of the Next() subroutine, because those timers otherwise would
be started multiple times.
Apart from starting those timers, this method works exactly like the new()

=head2 Next(sub)

This method takes a coderef as parameter. This coderef will be invoked when
the 'Next' event happens.

lib/AAC/Pvoice/Input.pm  view on Meta::CPAN

This method will start polling the the parallel port for input of the Adremo
Electrical Wheelchair.

=head2 QuitMonitor

This method will stop the timer that monitors the parallel port.

=head2 PauseMonitor($bool)

This method will pause ($bool is set to 1) or restart ($bool is set to 0)
the timer that monitors the parallel port.

=head2 StartAutoscan

This method will start the timer that invokes the Next() event every n milliseconds.

=head2 QuitAutoscan

This method will stop the timer that invokes the Next() method.

=head2 PauseAutoscan($bool)

This method will pause ($bool is set to 1) or restart ($bool is set to 0)
the timer that invokes the Next() method.



=head1 BUGS

 view release on metacpan or  search on metacpan

lib/AE/AdHoc.pm  view on Meta::CPAN

Suppose we have a subroutine named C<do_stuff( @args, $subref )>
that is designed to run under AnyEvent. As do_stuff may have to wait for
some external events to happen, it does not return a value right away.
Instead, it will call C<$subref-E<gt>( $results )> when stuff is done.

Now we need to test do_stuff, so we set up an event loop. We also need a timer,
because a test that runs forever is annoying. So the script goes like this:

    use AnyEvent;

    # set up event loop
    my $cv = AnyEvent->condvar;
    my $timer = AnyEvent->timer(
        after => 10, cb => sub { $cv->croak("Timeout"); }
    );

    do_stuff( @args, sub{ $cv->send(shift); } );

    # run event loop, get rid of timer
    my $result = $cv->recv();
    undef $timer;

    # finally
    analyze_results( $result );

Now, the same with AE::AdHoc:

lib/AE/AdHoc.pm  view on Meta::CPAN

	local $where = "ae_recv[$iter] at $caller[1]:$caller[2]";

	my $on_timeout = $opt{soft_timeout}
		? sub { $cv->send }
		: sub { $cv->croak("Timeout after $timeout seconds"); };
	my $timer;
	$timeout > 0 and $timer = AnyEvent->timer( after => $timeout,
		cb => $on_timeout,
	);
	_clear_goals();
	$code->();
	return $cv->recv;
	# on exit, $timer is autodestroyed
	# on exit, $cv is restored => destroyed
};

=head2 ae_send ( [@fixed_args] )

lib/AE/AdHoc.pm  view on Meta::CPAN

=head1 ADDITIONAL ROUTINES

=head2 ae_action { CODE } %options

Perform CODE after entering the event loop via ae_recv
(a timer is used internally).

CODE will NOT run after current event loop is terminated (see ae_recv).

Options may include:

lib/AE/AdHoc.pm  view on Meta::CPAN

	my $count = $opt{count};
	my $inf = !$count;
	my $n = 0;

	my $timer;
	my $cb = sub {
		if (!$cv) {
			undef $timer;
			return _error( "Leftover $exact called outside ae_recv" );
		};
		$myiter == $iter or undef $timer;
		$inf or $count-->0 or undef $timer;
		$timer and $code->($n++);
	};
	$timer = AnyEvent->timer(
		after=>$opt{after}, interval=>$opt{interval}, cb=>$cb);
	return;
};

=head1 ERROR HANDLING

 view release on metacpan or  search on metacpan

BackProp.pm  view on Meta::CPAN

		}
		
		# Debug
		AI::NeuralNet::BackProp::out1 "Num output neurons: $out, Input neurons: $size, Division: $divide\n";
		
		# Start benchmark timer and initalize a few variables
		$t0 	=	new Benchmark;
        $flag 	=	0; 
		$loop	=	0;   
		my $ldiff	=	0;
		my $dinc	=	0.0001;

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

   - Add object detection demo. See <https://github.com/EntropyOrg/perl-AI-TensorFlow-Libtensorflow/pull/23>.

  Refactoring

   - Add timer to the notebooks to time the inference steps. See <https://github.com/EntropyOrg/perl-AI-TensorFlow-Libtensorflow/pull/17>.

  Documentation

   - Add information about installing GPU version of `libtensorflow` either on
     the "bare metal" or with Docker GPU runtime support. See <https://github.com/EntropyOrg/perl-AI-TensorFlow-Libtensorflow/pull/18>.

 view release on metacpan or  search on metacpan

lib/API/Eulerian/EDW/Peer/Thin.pm  view on Meta::CPAN

    }
    case 'headers' {
      #print Dumper( $json ) . "\n";
      $self->{ uuid } = $uuid;
      $hook->on_headers(
        $json->{ uuid }, $json->{ timerange }->[ 0 ],
        $json->{ timerange }->[ 1 ], $json->{ columns }
      );
    }
    case 'progress' {
      $hook->on_progress(
        $json->{ uuid }, $json->{ progress }

 view release on metacpan or  search on metacpan

lib/API/MikroTik.pm  view on Meta::CPAN

}

sub _finish {
    my ($self, $r, $err) = @_;
    delete $self->{requests}{$r->{tag}};
    if (my $timer = $r->{timeout}) { $r->{loop}->remove($timer) }
    $r->{cb}->($self, ($self->{error} = $err // ''), $r->{data});
}

sub _login {
    my ($self, $loop, $cb) = @_;

lib/API/MikroTik.pm  view on Meta::CPAN

    return $r->{tag} if $r->{subscription};

    weaken $self;
    $r->{timeout} = $r->{loop}
        ->timer($self->timeout => sub { $self->_fail($r, 'response timeout') });

    return $r->{tag};
}

1;

lib/API/MikroTik.pm  view on Meta::CPAN

      '/interface/listen' => sub {
          my ($api, $err, $el) = @_;
          ...;
      }
  );
  Mojo::IOLoop->timer(3 => sub { $api->cancel($tag) });
  Mojo::IOLoop->start();

  # Errors handling
  $api->command(
      '/random/command' => sub {

lib/API/MikroTik.pm  view on Meta::CPAN

  # subscribe to a command output
  my $tag = $api->subscribe('/ping', {address => '127.0.0.1'} => sub {...});

  # cancel command after 10 seconds
  Mojo::IOLoop->timer(10 => sub { $api->cancel($tag) });

  # or with callback
  $api->cancel($tag => sub {...});

Cancels background commands. Can accept a callback as last argument.

lib/API/MikroTik.pm  view on Meta::CPAN

  my $tag = $api->subscribe('/ping',
      {address => '127.0.0.1'} => sub {
        my ($api, $err, $res) = @_;
      });

  Mojo::IOLoop->timer(
      3 => sub { $api->cancel($tag) }
  );

Subscribe to an output of commands with continuous responses such as C<listen> or
C<ping>. Should be terminated with L</cancel>.

 view release on metacpan or  search on metacpan

lib/APNS/Agent.pm  view on Meta::CPAN

        _sent_cache         => sub { Cache::LRU->new(size => 10000) },
        _queue              => sub { [] },
        __apns              => '_build_apns',
        _sent               => sub { 0 },
    },
    rw => [qw/_last_sent_at _disconnect_timer/],
);

sub to_app {
    my $self = shift;

lib/APNS/Agent.pm  view on Meta::CPAN

        private_key => $self->private_key,
        sandbox     => $self->sandbox,
        on_error    => sub {
            my ($handle, $fatal, $message) = @_;

            my $t; $t = AnyEvent->timer(
                after    => 0,
                interval => 10,
                cb       => sub {
                    undef $t;
                    infof "event:reconnect";

lib/APNS/Agent.pm  view on Meta::CPAN

            );
            warnf "event:error\tfatal:$fatal\tmessage:$message";
        },
        on_connect  => sub {
            infof "event:on_connect";
            $self->_disconnect_timer($self->_build_disconnect_timer);

            if (@{$self->_queue}) {
                $self->_sending;
            }
        },

lib/APNS/Agent.pm  view on Meta::CPAN

    $apns->connect unless $apns->connected;
    $apns;
}
sub _connect_to_apns { goto \&_apns }

sub _build_disconnect_timer {
    my $self = shift;

    if (my $interval = $self->disconnect_interval) {
        AnyEvent->timer(
            after    => $interval,
            interval => $interval,
            cb       => sub {
                if ($self->{__apns} && (time - ($self->_last_sent_at || 0) > $interval)) {
                    delete $self->{__apns};
                    delete $self->{_disconnect_timer};
                    infof "event:close apns";
                }
            },
        );
    }

lib/APNS/Agent.pm  view on Meta::CPAN

}

sub _sending {
    my $self = shift;

    $self->{_send_timer} ||= AnyEvent->timer(
        after    => $self->send_interval,
        interval => $self->send_interval,
        cb       => sub {
            my $msg = shift @{ $self->_queue };
            if ($msg) {
                $self->_send(@$msg);
            }
            else {
                delete $self->{_send_timer};
            }
        },
    );
}

lib/APNS/Agent.pm  view on Meta::CPAN

    };

    if (my $err = $@) {
        if ($err =~ m!Can't call method "push_write" on an undefined value!) {
            # AnyEvent::APNS->handle is missing
            delete $self->{_send_timer};
            unshift @{ $self->_queue }, [$token, $payload];
            $self->_connect_to_apns;
        }
        else {
            die $err;

 view release on metacpan or  search on metacpan

lib/ASNMTAP/Asnmtap/Applications.pm  view on Meta::CPAN

      if (pagedir_id == null || pagedir_id == "" || pagedir_id < 0 || pagedir_id > 2) {
        pagedir_id = 0;
        setPageDirCookie ( 'pagedir_id_${pageDir}_${environment}', '$HTTPSURL/nav/$pagedir', pagedir_id, 365 );
      }

      timerID = setTimeout("location.href='$HTTPSURL/nav/$pagedir/index" + pagedir_prefix[pagedir_id] + ".html'", $startRefresh);
      document.body.style.backgroundImage = 'url($IMAGESURL/startRefresh.gif)';
      document.getElementById('refreshID').innerHTML='<A HREF=\"javascript:stopRefresh();\" title=\"Stop Refresh\" alt=\"Stop Refresh\"><img src=\"$IMAGESURL/stop.gif\" WIDTH=\"32\" HEIGHT=\"27\" BORDER=0><\\/A>'
    }

    function stopRefresh() {
      clearTimeout(timerID);
      document.body.style.backgroundImage = 'url($IMAGESURL/stopRefresh.gif)';
      document.getElementById('refreshID').innerHTML='<A HREF=\"javascript:startRefresh();\" title=\"Start Refresh\" alt=\"Start Refresh\"><img src=\"$IMAGESURL/start.gif\" WIDTH=\"32\" HEIGHT=\"27\" BORDER=0<\\/A>'
    }
EndOfHtml
  }

 view release on metacpan or  search on metacpan

share/AXLSoap.xsd  view on Meta::CPAN

				<xsd:annotation>
					<xsd:documentation>Not used by T1 Ports.</xsd:documentation>
				</xsd:annotation>
			</xsd:element>
			<xsd:element name="startDialProtocol" type="axlapi:XStartDialProtocol"/>
			<xsd:element name="timers">
				<xsd:complexType>
					<xsd:sequence>
						<xsd:element name="timer" type="xsd:nonNegativeInteger" maxOccurs="6"/>
					</xsd:sequence>
				</xsd:complexType>
			</xsd:element>
			<xsd:element name="trunk" type="xsd:string"/><!--This field is of the type axl:XTrunk in AXLEnums.xsd-->
			<xsd:element name="trunkDirection" type="xsd:string"/><!--This field is of the type axl:XTrunkDirection in AXLEnums.xsd-->

share/AXLSoap.xsd  view on Meta::CPAN

							<xsd:documentation>The prefix used for park-code retrieval. User will dial prefix plus park code to retrieve a parked call. </xsd:documentation>
						</xsd:annotation>
					</xsd:element>
					<xsd:element name="reversionPattern" type="xsd:string" minOccurs="0">
						<xsd:annotation>
							<xsd:documentation>The pattern used to revert the call when the parked call is not retrieved within retrieval timer.</xsd:documentation>
						</xsd:annotation>
					</xsd:element>
					<xsd:choice minOccurs="0">
						<xsd:annotation>
							<xsd:documentation>To be configured only when reversion pattern is not empty.</xsd:documentation>

share/AXLSoap.xsd  view on Meta::CPAN

			<xsd:element name="name" type="axlapi:String50" nillable="false"/>
			<xsd:element name="description" type="axlapi:String100" nillable="true" minOccurs="0"/>
			<xsd:element name="defaultTelephonyEventPayloadType" type="xsd:long" default="101" minOccurs="0"/>
			<xsd:element name="redirectByApplication" type="xsd:boolean" default="false" minOccurs="0"/>
			<xsd:element name="ringing180" type="xsd:boolean" default="false" minOccurs="0"/>
			<xsd:element name="timerInvite" type="xsd:long" default="180" minOccurs="0"/>
			<xsd:element name="timerRegisterDelta" type="xsd:long" default="5" minOccurs="0"/>
			<xsd:element name="timerRegister" type="xsd:long" default="3600" minOccurs="0"/>
			<xsd:element name="timerT1" type="xsd:long" default="500" minOccurs="0"/>
			<xsd:element name="timerT2" type="xsd:long" default="4000" minOccurs="0"/>
			<xsd:element name="retryInvite" type="xsd:long" default="6" minOccurs="0"/>
			<xsd:element name="retryNotInvite" type="xsd:long" default="10" minOccurs="0"/>
			<xsd:element name="startMediaPort" type="xsd:long" default="16384" minOccurs="0"/>
			<xsd:element name="stopMediaPort" type="xsd:long" default="32766" minOccurs="0"/>
			<xsd:element name="callpickupURI" type="axlapi:Name128" default="x-cisco-serviceuri-pickup" minOccurs="0"/>

share/AXLSoap.xsd  view on Meta::CPAN

			<xsd:element name="callHoldRingback" type="axlapi:XZzpreff" default="Off" minOccurs="0"/>
			<xsd:element name="anonymousCallBlock" type="axlapi:XZzpreff" default="Off" minOccurs="0"/>
			<xsd:element name="callerIdBlock" type="axlapi:XZzpreff" default="Off" minOccurs="0"/>
			<xsd:element name="dndControl" type="axlapi:XZzdndcontrol" default="Admin" minOccurs="0"/>
			<xsd:element name="telnetLevel" type="axlapi:XTelnetLevel" default="Disabled" minOccurs="0"/>
			<xsd:element name="timerKeepAlive" type="xsd:long" default="120" minOccurs="0"/>
			<xsd:element name="timerSubscribe" type="xsd:long" default="120" minOccurs="0"/>
			<xsd:element name="timerSubscribeDelta" type="xsd:long" default="5" minOccurs="0"/>
			<xsd:element name="maxRedirects" type="xsd:long" default="70" minOccurs="0"/>
			<xsd:element name="timerOffhookToFirstDigit" type="xsd:long" default="15000" minOccurs="0"/>
			<xsd:element name="callForwardURI" type="axlapi:String128" default="x-cisco-serviceuri-cfwdall" minOccurs="0"/>
			<xsd:element name="abbreviatedDialURI" type="axlapi:String128" default="x-cisco-serviceuri-abbrdial" minOccurs="0"/>
			<xsd:element name="confJoinEnable" type="xsd:boolean" default="true" minOccurs="0"/>
			<xsd:element name="rfc2543Hold" type="xsd:boolean" default="false" minOccurs="0"/>
			<xsd:element name="semiAttendedTransfer" type="xsd:boolean" default="true" minOccurs="0"/>

share/AXLSoap.xsd  view on Meta::CPAN

								<xsd:documentation>The new prefix used for park-code retrieval. User will dial prefix plus park code to retrieve a parked call. </xsd:documentation>
							</xsd:annotation>
						</xsd:element>
						<xsd:element name="reversionPattern" type="xsd:string" minOccurs="0">
							<xsd:annotation>
								<xsd:documentation>The new pattern used to revert the call when the parked call is not retrieved within retrieval timer. </xsd:documentation>
							</xsd:annotation>
						</xsd:element>
					</xsd:sequence>
					<xsd:choice minOccurs="0">
						<xsd:annotation>

share/AXLSoap.xsd  view on Meta::CPAN

					<xsd:element name="newName" type="axlapi:UniqueString255" nillable="false" minOccurs="0"/>
					<xsd:element name="description" type="axlapi:String100" nillable="true" minOccurs="0"/>
					<xsd:element name="defaultTelephonyEventPayloadType" type="xsd:long" default="101" nillable="false" minOccurs="0"/>
					<xsd:element name="redirectByApplication" type="xsd:boolean" default="false" nillable="false" minOccurs="0"/>
					<xsd:element name="ringing180" type="xsd:boolean" default="false" nillable="false" minOccurs="0"/>
					<xsd:element name="timerInvite" type="xsd:long" default="180" nillable="false" minOccurs="0"/>
					<xsd:element name="timerRegisterDelta" type="xsd:long" default="5" nillable="false" minOccurs="0"/>
					<xsd:element name="timerRegister" type="xsd:long" default="3600" nillable="false" minOccurs="0"/>
					<xsd:element name="timerT1" type="xsd:long" default="500" nillable="false" minOccurs="0"/>
					<xsd:element name="timerT2" type="xsd:long" default="4000" nillable="false" minOccurs="0"/>
					<xsd:element name="retryInvite" type="xsd:long" default="6" nillable="false" minOccurs="0"/>
					<xsd:element name="retryNotInvite" type="xsd:long" default="10" nillable="false" minOccurs="0"/>
					<xsd:element name="startMediaPort" type="xsd:long" default="16384" nillable="false" minOccurs="0"/>
					<xsd:element name="stopMediaPort" type="xsd:long" default="32766" nillable="false" minOccurs="0"/>
					<xsd:element name="callpickupURI" type="axlapi:Name128" default="x-cisco-serviceuri-pickup" nillable="false" minOccurs="0"/>

share/AXLSoap.xsd  view on Meta::CPAN

					<xsd:element name="callHoldRingback" type="axlapi:XZzpreff" default="Off" nillable="false" minOccurs="0"/>
					<xsd:element name="anonymousCallBlock" type="axlapi:XZzpreff" default="Off" nillable="false" minOccurs="0"/>
					<xsd:element name="callerIdBlock" type="axlapi:XZzpreff" default="Off" nillable="false" minOccurs="0"/>
					<xsd:element name="dndControl" type="axlapi:XZzdndcontrol" default="Admin" nillable="false" minOccurs="0"/>
					<xsd:element name="telnetLevel" type="axlapi:XTelnetLevel" default="Disabled" nillable="false" minOccurs="0"/>
					<xsd:element name="timerKeepAlive" type="xsd:long" default="120" nillable="false" minOccurs="0"/>
					<xsd:element name="timerSubscribe" type="xsd:long" default="120" nillable="false" minOccurs="0"/>
					<xsd:element name="timerSubscribeDelta" type="xsd:long" default="5" nillable="false" minOccurs="0"/>
					<xsd:element name="maxRedirects" type="xsd:long" default="70" nillable="false" minOccurs="0"/>
					<xsd:element name="timerOffhookToFirstDigit" type="xsd:long" default="15000" nillable="false" minOccurs="0"/>
					<xsd:element name="callForwardURI" type="axlapi:String128" default="x-cisco-serviceuri-cfwdall" nillable="false" minOccurs="0"/>
					<xsd:element name="abbreviatedDialURI" type="axlapi:String128" default="x-cisco-serviceuri-abbrdial" nillable="false" minOccurs="0"/>
					<xsd:element name="confJoinEnable" type="xsd:boolean" default="true" nillable="false" minOccurs="0"/>
					<xsd:element name="rfc2543Hold" type="xsd:boolean" default="false" nillable="false" minOccurs="0"/>
					<xsd:element name="semiAttendedTransfer" type="xsd:boolean" default="true" nillable="false" minOccurs="0"/>

 view release on metacpan or  search on metacpan

acelib/aceclientlib.c  view on Meta::CPAN

BOOL accessDebug = FALSE ;

#include <signal.h>		/* for alarm stuff */
#include <unistd.h>		/* for pause() */
#include <sys/time.h>		/* for setitimer() etc. */


static void wakeUp (int x) 
{ 
  static int sig = 0 ; 

acelib/aceclientlib.c  view on Meta::CPAN

      }
    fclose (f) ;
  }

  { int i ;
    struct itimerval tval ;
    
    signal (SIGALRM, wakeUp) ;
    tval.it_interval.tv_sec = 0 ;
    tval.it_interval.tv_usec = 5000 ; /* 5ms reload */
    tval.it_value.tv_sec = 0 ;
    tval.it_value.tv_usec = 1000 ; /* 1ms initial */
    setitimer (ITIMER_REAL, &tval, 0) ;

    for (i = 0 ; i < 1000 ; ++i) /* 5 seconds */
      { pause () ;		/* wait until SIGALRM handled */
	f = fopen (name, "r") ;
	if (f) 
	  { if (accessDebug) 
	      printf ("//   found %s after %d msecs\n", name, 5*i+1) ;
	    tval.it_interval.tv_usec = tval.it_value.tv_usec = 0 ;
	    setitimer (ITIMER_REAL, &tval, 0) ;
	    return f ;
	  }
      }

    if (accessDebug)
      printf ("//   failed to find %s after %d msecs\n", name, 5*i+1) ;
    tval.it_interval.tv_usec = tval.it_value.tv_usec = 0 ;
    setitimer (ITIMER_REAL, &tval, 0) ;
  }

  return 0 ;
}

 view release on metacpan or  search on metacpan

fortune/jackbauer  view on Meta::CPAN

%
Jack Bauer quit for just five minutes, and a nuclear bomb went off.
%
Nothing can get in between Jack fucking Bauer. Except for the word "fucking".
%
Jack Bauer doesn't own a working watch, he only has a timer that is set on 15 minute intervals. Thus, he always assumes he is running out of time.
%
Jack Bauer doesn't laugh in the face of danger; Jack Bauer is the face of danger.
%
Jack Bauer's first act after being elected as President of the United States will be to add 5 new stars to the U.S. flag: China, North Korea, Iraq, Iran, and France.
%

fortune/jackbauer  view on Meta::CPAN

%
Chuck Norris is Jack Bauer's biggest fan.
%
Nothing could get in the middle of Jack Bauer. Not even a middle name.
%
If there was a bomb on a 60 second timer and Jack was handcuffed, he would dial CTU with his nose and disable the bomb with his teeth.
%
Jack Bauer once saw two gay men making out. They immediately turned straight.
%
Jack Bauer gets anal on the first date. No questions asked.
%

 view release on metacpan or  search on metacpan

lib/Acme/CPANModules_ScenarioR/CalculatingDayOfWeek.pm  view on Meta::CPAN

## no critic
package Acme::CPANModules_ScenarioR::CalculatingDayOfWeek;

our $VERSION = 0.002; # VERSION

our $results = [[200,"OK",[{_name=>"participant=DateTime",_succinct_name=>"D",errors=>3.8e-08,participant=>"DateTime",pct_faster_vs_slowest=>0,pct_slower_vs_fastest=>80.570996978852,rate=>37000,samples=>24,time=>27},{_name=>"participant=Date::DayOfWe...

1;
# ABSTRACT: List of modules to calculate day of week

=head1 DESCRIPTION

 view release on metacpan or  search on metacpan

lib/Acme/CPANModules_ScenarioR/HTMLTable.pm  view on Meta::CPAN

## no critic
package Acme::CPANModules_ScenarioR::HTMLTable;

our $VERSION = 0.002; # VERSION

our $results = do{my$var=[[200,"OK",[{_name=>"participant=Text::Table::Manifold",_succinct_name=>"TT:M",errors=>4.9e-05,participant=>"Text::Table::Manifold",pct_faster_vs_slowest=>0,pct_slower_vs_fastest=>6.36903376018626,rate=>15.8,samples=>21,time=...

1;
# ABSTRACT: List of modules that generate HTML tables

=head1 DESCRIPTION

 view release on metacpan or  search on metacpan

lib/Acme/CPANModules_ScenarioR/TextTable.pm  view on Meta::CPAN

## no critic
package Acme::CPANModules_ScenarioR::TextTable;

our $VERSION = 0.016; # VERSION

our $results = do{my$var=[[200,"OK",[{_name=>"participant=Text::UnicodeBox::Table",_succinct_name=>"Text::UnicodeBox::Table",errors=>0.0024,participant=>"Text::UnicodeBox::Table",pct_faster_vs_slowest=>0,pct_slower_vs_fastest=>365.666666666667,rate=>...

1;
# ABSTRACT: List of modules that generate text tables

=head1 DESCRIPTION

 view release on metacpan or  search on metacpan

lib/Acme/CPANModules_ScenarioR/UUID.pm  view on Meta::CPAN

## no critic
package Acme::CPANModules_ScenarioR::UUID;

our $VERSION = 0.011; # VERSION

our $results = [[200,"OK",[{_name=>"participant=UUID::Random::Secure::generate",_succinct_name=>"URS:g",errors=>0.0013,participant=>"UUID::Random::Secure::generate",pct_faster_vs_slowest=>0,pct_slower_vs_fastest=>36.5,rate=>30,samples=>22,time=>30},{...

1;
# ABSTRACT: List of modules that can generate immutable universally unique identifier (UUIDs)

=head1 DESCRIPTION

 view release on metacpan or  search on metacpan

devdata/https_mojolicious.io_blog_2017_12_21_day-21-virtually-a-lumberjack  view on Meta::CPAN

  my $instruction = shift @{$self->instructions};
  return $self->loop->stop_gracefully unless defined $instruction;

  say $instruction->[1];
  $self->loop->timer(
    $instruction->[0] => sub { $self->instruction_show },
  );

  $self->loop->timer($instruction->[0] / 2, sub {
    my $type = (split / /, $self->instructions->[0][1])[1];
    my $file_count = $self->file_count;
    my $path = sprintf '%i_%s.pgm', $file_count, uc $type;
    $self->file( $self->file_start($path) );
  }) if $instruction->[1] eq 'Steady';

devdata/https_mojolicious.io_blog_2017_12_21_day-21-virtually-a-lumberjack  view on Meta::CPAN

(much).</p>

<p>Then we need to start walking through this script by adding this before
starting the event loop in <em>main</em>:</p>

<pre><code>$self-&gt;loop-&gt;timer(0 =&gt; sub { $self-&gt;instruction_show });
</code></pre>

<p>Running this now prompts the user to move the HMD while outputting the packet
data in an image named after the movement that image represents!</p>

devdata/https_mojolicious.io_blog_2017_12_21_day-21-virtually-a-lumberjack  view on Meta::CPAN

<p>(The above has been rotated and flipped, the original image is a thin
&quot;waterfall&quot;.)</p>

<p>Some parts are immediately obvious.
Very smooth gradients next to larger smooth blocks or gradients hints at a
high-precision timer, which tend to be 32 bits (4 bytes) wide.
This can be seen at the top of the example.</p>

<p>Other aspects are only noticeable when compared to the other movements.
The simple file format makes it very easy to graph the data with gnuplot.
In the worst/simple case scenario, you can simply graph at each offset and

 view release on metacpan or  search on metacpan

lib/Acme/DependOnEverything.pm  view on Meta::CPAN

use BSD::arcrandom;
use BSD::devstat;
use BSD::Getfsent;
use BSD::getloadavg;
use BSD::Ipfwgen;
use BSD::Itimer;
use BSD::Jail;
use BSD::Jail::Object;
use BSD::Process;
use BSD::Process::Affinity;
use BSD::Resource;

lib/Acme/DependOnEverything.pm  view on Meta::CPAN

use SMS::Send::DE::Sipgate;
use SMS::Send::DeviceGsm;
use SMS::Send::DistributeSMS;
use SMS::Send::Driver::WebService;
use SMS::Send::Fr::OVH;
use SMS::Send::Iletimerkezi;
use SMS::Send::IN::eSMS;
use SMS::Send::IN::Unicel;
use SMS::Send::Kannel::SMSbox;
use SMS::Send::KR::APIStore;
use SMS::Send::KR::CoolSMS;

 view release on metacpan or  search on metacpan

lib/Acme/FishFarm.pm  view on Meta::CPAN

=cut

sub check_feeder {
    my ( $feeder, $verbose ) = @_;
    if ( $feeder->timer_is_up ) {
        print "Timer is up, time to feed the fish!\n";
        
        if ( $verbose) {
            $feeder->feed_fish( verbose => 1 );        
        } else {

 view release on metacpan or  search on metacpan

eg/ghost_ae.pl  view on Meta::CPAN

sub startup {
    my $self = shift;
    my $quit = AnyEvent->condvar;
    my $i = 0;

    # Create watcher timer
    my $watcher = AnyEvent->timer (after => 1, interval => 1, cb => sub {
        $quit->send unless $self->ok;
    });

    # Create process timer
    my $timer = AnyEvent->timer(after => 3, interval => 3, cb => sub {
        $self->log->info("Tick! " . ++$i);
        $quit->send if $i >= 10;
    });

    $self->log->debug("Start AnyEvent");

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

	Added help message to Makefile.PL
	Added verbose option to Makefile.PL
	Added documentation comments to OpenGL.xs
	Added glpHasGLUT
	Updated test.pl to run texhack if no GLUT
	Added a countdown timer to examples/texhack
	Fixed GL_X_BYTES in assign
	Fixed vertex.glsl to work on newer nvidia cards
	Implemented glutIgnoreKeyRepeat
	Implemented glutSetKeyRepeat
	Implemented glutForceJoystickFunc