Result:
found more than 692 distributions - search limited to the first 2001 files matching your query
( run in 1.658 )
Bot-BasicBot-Pluggable-Module-Notes
view release on metacpan or search on metacpan
root/js/jquery-1.3.2.min.js view on Meta::CPAN
* Sizzle CSS Selector Engine - v0.9.3
* Copyright 2009, The Dojo Foundation
* Released under the MIT, BSD, and GPL Licenses.
* More information: http://sizzlejs.com/
*/
(function(){var R=/((?:\((?:\([^()]+\)|[^()]+)+\)|\[(?:\[[^[\]]*\]|['"][^'"]*['"]|[^[\]'"]+)+\]|\\.|[^ >+~,(\[\\]+)+|[>+~])(\s*,\s*)?/g,L=0,H=Object.prototype.toString;var F=function(Y,U,ab,ac){ab=ab||[];U=U||document;if(U.nodeType!==1&&U.nodeType!==...
Bot-ChatBots-Telegram
view release on metacpan or search on metacpan
eg/tutorial-longpoll-02 view on Meta::CPAN
}
elsif (my ( $delay, $msg) = $text =~ m{
\A /remind \s+ ([1-9]\d*) \s+ (.*)
}mxs)
{
Mojo::IOLoop->timer($delay => sub {
$bcb->sender->send_message(
{
text => "$peer_name: remember $msg",
chat_id => $chat_id,
}
Bot-ChatBots
view release on metacpan or search on metacpan
lib/Bot/ChatBots/Role/Poller.pm view on Meta::CPAN
}
sub schedule {
my ($self, $interval, @rest) = @_;
my $poller = $self->poller(@rest);
Mojo::IOLoop->timer(0 => $poller);
Mojo::IOLoop->recurring($interval, $poller);
return $self;
}
1;
Bot-Cobalt-Plugin-RSS
view release on metacpan or search on metacpan
lib/Bot/Cobalt/Plugin/RSS.pm view on Meta::CPAN
};
## Can create our XML::RSS:Feed now (requires proper hash above):
$p_heap->{obj} = $self->_create_feed($feedname);
## add to timer pool
my $pool = $self->pending;
$pool->{$feedname} = {
LastRun => 0,
};
lib/Bot/Cobalt/Plugin/RSS.pm view on Meta::CPAN
);
}
register( $self, 'SERVER',
[
'executed_timer',
'rssplug_check_timer_pool',
'rssplug_got_resp',
],
);
$self->{POOLTIMERID} = $core->timer_set( 6,
{ Event => 'rssplug_check_timer_pool' }
);
my $count = $self->list_feed_names;
logger->info("Loaded - $VERSION - watching $count feeds");
lib/Bot/Cobalt/Plugin/RSS.pm view on Meta::CPAN
sub Cobalt_unregister {
my ($self, $core) = splice @_, 0, 2;
$core->timer_del($self->{POOLTIMERID});
$core->timer_del($_) for keys %{$self->{MSGTIMERS}};
delete $self->{HEAP};
logger->info("Unloaded");
return PLUGIN_EAT_NONE
}
sub Bot_executed_timer {
my ($self, $core) = splice @_, 0, 2;
my $id = ${ $_[0] };
delete $self->{MSGTIMERS}->{$id};
return PLUGIN_EAT_NONE
}
sub Bot_rssplug_check_timer_pool {
my ($self, $core) = splice @_, 0, 2;
my $pool = $self->pending;
## check timestamps on pool (keyed on name)
## if ts is up, execute _request, schedule new
for my $feedname (keys %$pool) {
my $feedmeta = $self->get_feed_meta($feedname)
|| return PLUGIN_EAT_NONE;
my $thistimer = $pool->{$feedname};
my $lastts = $thistimer->{LastRun} || 0;
my $delay = $feedmeta->{delay};
if (time - $lastts >= $delay) {
$self->_request($feedname);
$thistimer->{LastRun} = time;
}
}
$self->{POOLTIMERID} = $core->timer_set( 3,
{ Event => 'rssplug_check_timer_pool' }
);
return PLUGIN_EAT_NONE
}
lib/Bot/Cobalt/Plugin/RSS.pm view on Meta::CPAN
CONTEXT: for my $context (keys %$a_heap) {
my $irc = irc_object($context) || next CONTEXT;
for my $channel ( @{ $a_heap->{$context} } ) {
my $tid = core()->timer_set( 1 + $spcount,
{
Type => 'msg',
Context => $context,
Target => $channel,
Text => $str,
Bot-Cobalt-Plugin-Weather
view release on metacpan or search on metacpan
lib/Bot/Cobalt/Plugin/Weather.pm view on Meta::CPAN
],
);
register( $self, SERVER =>
'public_cmd_wx',
'wx_timer_expire_item',
);
logger->info("Loaded: wx");
PLUGIN_EAT_NONE
}
sub Cobalt_unregister {
my ($self, $core) = splice @_, 0, 2;
logger->info("Shutting down POEx::Weather::OpenWeatherMap ...");
$core->timer_del_alias( $core->get_plugin_alias($self) );
$self->{location} = +{};
$self->pwx->stop if $self->pwx;
logger->info("wx unloaded");
PLUGIN_EAT_NONE
}
lib/Bot/Cobalt/Plugin/Weather.pm view on Meta::CPAN
. ", low of ${temp_lo_f}F/${temp_lo_c}C"
. ", wind $winddir at ${wind}mph"
. "; $terse: $verbose"
}
sub Bot_wx_timer_expire_item {
my ($self, $core) = splice @_, 0, 2;
my $context = ${ $_[0] };
my $nick = ${ $_[1] };
return unless exists $self->{location}->{$context};
delete $self->{location}->{$context}->{$nick};
lib/Bot/Cobalt/Plugin/Weather.pm view on Meta::CPAN
return PLUGIN_EAT_NONE
}
} else {
$location = join ' ', @parts;
$loc->{ $context }->{ $lower } = $location;
$core->timer_set( 180,
+{
Event => 'wx_timer_expire_item',
Args => [ $context, $lower ],
Alias => $core->get_plugin_alias($self),
}
);
}
Bot-Cobalt
view release on metacpan or search on metacpan
lib/Bot/Cobalt.pm view on Meta::CPAN
=head2 Included plugins
The example C<etc/plugins.conf> installed by C<cobalt2-installer> has
most of these:
L<Bot::Cobalt::Plugin::Alarmclock> -- IRC highlight timers
L<Bot::Cobalt::Plugin::Auth> -- User authentication
L<Bot::Cobalt::Plugin::Games> -- Simple IRC games
lib/Bot/Cobalt.pm view on Meta::CPAN
L<Bot::Cobalt::Plugin::Master> -- Simple bot control from IRC
L<Bot::Cobalt::Plugin::PluginMgr> -- Load/unload plugins from IRC
L<Bot::Cobalt::Plugin::RDB> -- "Random stuff" databases for quotebots
or randomized chatter on a timer
L<Bot::Cobalt::Plugin::Extras::CPAN> -- Query MetaCPAN and
L<Module::CoreList>
L<Bot::Cobalt::Plugin::Extras::DNS> -- DNS lookups
Bot-Jabbot
view release on metacpan or search on metacpan
examples/lib/Jabbot/Module/Replier.pm view on Meta::CPAN
use AnyEvent;
sub init
{
my ($self, $cl, $jid) = @_;
$self->{timer} = AnyEvent->timer (after => 5, interval => 10, cb => sub {
$self->timer($cl,$jid);
});
return 0;
}
sub timer
{
#do something good
}
sub message {
Bot-Net
view release on metacpan or search on metacpan
lib/Bot/Net/Test.pm view on Meta::CPAN
=head1 POE STATES
=head2 on _start
Sets up a timer which kills the whole test if it doesn't receive any messages within 30 seconds.
If you have a test that may run for longer than 30 seconds, make sure your events yield "something_happened":
on bot message_to_me => run {
yield 'something_happened';
Bot-Pastebot
view release on metacpan or search on metacpan
lib/Bot/Pastebot/Client/Irc.pm view on Meta::CPAN
$kernel->alias_set( "irc_client_$server" );
$irc->yield( register => 'all' );
$heap->{server_index} = 0;
# Keep-alive timer.
$kernel->delay( autoping => 300 );
$kernel->yield( 'connect' );
},
Bot-Telegram
view release on metacpan or search on metacpan
lib/Bot/Telegram.pm view on Meta::CPAN
$self -> log -> warn("Update processing failed: $err");
};
has [qw/api current_update polling_config/];
has [qw/_polling
_polling_timer
_polling_interval
_polling_request_id/
];
has callbacks => sub { {} };
lib/Bot/Telegram.pm view on Meta::CPAN
# In synchronous mode, it's enough to simply clear state
return $self -> _polling_interval(undef)
unless $agent -> isa('Mojo::UserAgent')
and $self -> is_async;
# In asynchronous mode, we also need to cancel existing timers
for (my $loop = Mojo::IOLoop -> singleton) {
$loop -> remove($self -> _polling_request_id);
$loop -> remove($self -> _polling_timer)
if $self -> _polling_timer; # if another request is scheduled, cancel it
}
# Reset state
$self -> _polling_request_id(undef)
-> _polling_interval(undef)
-> _polling_timer(undef);
}
$self
}
lib/Bot/Telegram.pm view on Meta::CPAN
return unless $self -> is_polling;
$self -> log -> trace('still polling, scheduling another iteration...');
if ($async) {
my $tid = Mojo::IOLoop -> timer(
$retry_after // $self -> _polling_interval,
sub { $self -> tap(sub { $self -> log -> trace("it's polling time!") })
-> _poll });
$self -> _polling_timer($tid);
} else {
my $d = $retry_after // $self -> _polling_interval;
# Sleep
$self -> ioloop -> timer($d, sub { $self -> ioloop -> stop });
$self -> ioloop -> start;
$self -> log -> trace("it's polling time!");
$self -> _poll;
}
lib/Bot/Telegram.pm view on Meta::CPAN
=item interval
Interval in seconds between polling requests.
Floating point values are accepted (timers are set using L<Mojo::IOLoop/"timer">).
Default value is 0.3 (300ms).
=back
Bracket
view release on metacpan or search on metacpan
root/static/javascript/jquery.3.3.1.min.js view on Meta::CPAN
/*! jQuery v3.3.1 | (c) JS Foundation and other contributors | jquery.org/license */
!function(e,t){"use strict";"object"==typeof module&&"object"==typeof module.exports?module.exports=e.document?t(e,!0):function(e){if(!e.document)throw new Error("jQuery requires a window with a document");return t(e)}:t(e)}("undefined"!=typeof windo...
Broadworks-OCIP
view release on metacpan or search on metacpan
ocip_html/OCISchemaDataTypes.xsd.html view on Meta::CPAN
</td>
</tr>
<tr xmlns="">
<th>Documentation</th>
<td>
The timer to start when an invitation is sent to a device associated with a trunk group.
</td>
</tr>
<tr>
<th>Application Data</th>
<td>
Broker-Async
view release on metacpan or search on metacpan
t/event-loop/mojo.t view on Meta::CPAN
or plan skip_all => 'Future::Mojo or Mojo::IOLoop support not available';
}
subtest 'multi-worker concurrency' => sub {
my $loop = Mojo::IOLoop->singleton;
my $code = sub { Future::Mojo->new_timer($loop, 0) };
my $broker = Broker::Async->new(
workers => [ ($code)x 2 ],
);
test_event_loop($broker, [1 .. 5], 'mojo');
};
subtest 'per worker concurrency' => sub {
my $loop = Mojo::IOLoop->singleton;
my $code = sub { Future::Mojo->new_timer($loop, 0) };
my $broker = Broker::Async->new(
workers => [{code => $code, concurrency => 2}],
);
test_event_loop($broker, [1 .. 5], 'mojo');
Burpsuite-Parser
view release on metacpan or search on metacpan
t/test1.xml view on Meta::CPAN
this.onTimerEvent();
},
stop: function() {
this.updater.onComplete = undefined;
clearTimeout(this.timer);
(this.onComplete || Prototype.emptyFunction).apply(this, arguments);
},
updateComplete: function(request) {
if (this.options.decay) {
this.decay = (request.responseText == this.lastText ?
this.decay * this.options.decay : 1);
this.lastText = request.responseText;
}
this.timer = setTimeout(this.onTimerEvent.bind(this),
this.decay * this.frequency * 1000);
},
onTimerEvent: function() {
this.updater = new Ajax.Updater(this.container, this.url, this.options);
Business-DK-Postalcode
view release on metacpan or search on metacpan
"release_status" : "stable",
"resources" : {
"bugtracker" : {
"web" : "https://github.com/jonasbn/bdkpst/issues"
},
"homepage" : "https://jonasbn.github.io/perl-test-timer/",
"repository" : {
"type" : "git",
"url" : "https://github.com/jonasbn/bdkpst.git",
"web" : "https://github.com/jonasbn/bdkpst"
}
Business-eWAY-RapidAPI
view release on metacpan or search on metacpan
examples/web/Scripts/jquery-1.4.4.min.js view on Meta::CPAN
if(E.ActiveXObject)c.ajaxSettings.xhr=function(){if(E.location.protocol!=="file:")try{return new E.XMLHttpRequest}catch(a){}try{return new E.ActiveXObject("Microsoft.XMLHTTP")}catch(b){}};c.support.ajax=!!c.ajaxSettings.xhr();var ea={},vb=/^(?:toggle...
3),a,b,d);else{d=0;for(var e=this.length;d<e;d++){a=this[d];b=a.style.display;if(!c.data(a,"olddisplay")&&b==="none")b=a.style.display="";b===""&&c.css(a,"display")==="none"&&c.data(a,"olddisplay",qa(a.nodeName))}for(d=0;d<e;d++){a=this[d];b=a.style....
d)}for(a=0;a<b;a++)this[a].style.display="none";return this}},_toggle:c.fn.toggle,toggle:function(a,b,d){var e=typeof a==="boolean";if(c.isFunction(a)&&c.isFunction(b))this._toggle.apply(this,arguments);else a==null||e?this.each(function(){var f=e?a:...
d,e);if(c.isEmptyObject(a))return this.each(f.complete);return this[f.queue===false?"each":"queue"](function(){var h=c.extend({},f),l,k=this.nodeType===1,o=k&&c(this).is(":hidden"),x=this;for(l in a){var r=c.camelCase(l);if(l!==r){a[r]=a[l];delete a[...
"inline")this.style.display="inline-block";else{this.style.display="inline";this.style.zoom=1}else this.style.display="inline-block"}if(c.isArray(a[l])){(h.specialEasing=h.specialEasing||{})[l]=a[l][1];a[l]=a[l][0]}}if(h.overflow!=null)this.style.ove...
1)/J.cur()*I;c.style(x,A,I+g)}if(w[1])L=(w[1]==="-="?-1:1)*L+I;J.custom(I,L,g)}else J.custom(I,C,"")}});return true})},stop:function(a,b){var d=c.timers;a&&this.queue([]);this.each(function(){for(var e=d.length-1;e>=0;e--)if(d[e].elem===this){b&&d[e]...
d,e,f)}});c.extend({speed:function(a,b,d){var e=a&&typeof a==="object"?c.extend({},a):{complete:d||!d&&b||c.isFunction(a)&&a,duration:a,easing:d&&b||b&&!c.isFunction(b)&&b};e.duration=c.fx.off?0:typeof e.duration==="number"?e.duration:e.duration in c...
Math.PI)/2+0.5)*e+d}},timers:[],fx:function(a,b,d){this.options=b;this.elem=a;this.prop=d;if(!b.orig)b.orig={}}});c.fx.prototype={update:function(){this.options.step&&this.options.step.call(this.elem,this.now,this);(c.fx.step[this.prop]||c.fx.step._d...
var f=this,h=c.fx;this.startTime=c.now();this.start=a;this.end=b;this.unit=d||this.unit||"px";this.now=this.start;this.pos=this.state=0;e.elem=this.elem;if(e()&&c.timers.push(e)&&!ba)ba=setInterval(h.tick,h.interval)},show:function(){this.options.ori...
this.custom(this.cur(),0)},step:function(a){var b=c.now(),d=true;if(a||b>=this.options.duration+this.startTime){this.now=this.end;this.pos=this.state=1;this.update();this.options.curAnim[this.prop]=true;for(var e in this.options.curAnim)if(this.optio...
this.options.show)for(var l in this.options.curAnim)c.style(this.elem,l,this.options.orig[l]);this.options.complete.call(this.elem)}return false}else{a=b-this.startTime;this.state=a/this.options.duration;b=this.options.easing||(c.easing.swing?"swing"...
c.timers,b=0;b<a.length;b++)a[b]()||a.splice(b--,1);a.length||c.fx.stop()},interval:13,stop:function(){clearInterval(ba);ba=null},speeds:{slow:600,fast:200,_default:400},step:{opacity:function(a){c.style(a.elem,"opacity",a.now)},_default:function(a){...
b.elem}).length};var xb=/^t(?:able|d|h)$/i,Ia=/^(?:body|html)$/i;c.fn.offset="getBoundingClientRect"in t.documentElement?function(a){var b=this[0],d;if(a)return this.each(function(l){c.offset.setOffset(this,a,l)});if(!b||!b.ownerDocument)return null;...
h.scrollTop||b.scrollTop)-(h.clientTop||b.clientTop||0),left:d.left+(f.pageXOffset||c.support.boxModel&&h.scrollLeft||b.scrollLeft)-(h.clientLeft||b.clientLeft||0)}}:function(a){var b=this[0];if(a)return this.each(function(x){c.offset.setOffset(this,...
for(var k=b.offsetTop,o=b.offsetLeft;(b=b.parentNode)&&b!==l&&b!==h;){if(c.offset.supportsFixedPosition&&d.position==="fixed")break;d=f?f.getComputedStyle(b,null):b.currentStyle;k-=b.scrollTop;o-=b.scrollLeft;if(b===e){k+=b.offsetTop;o+=b.offsetLeft;...
parseFloat(d.borderTopWidth)||0;o+=parseFloat(d.borderLeftWidth)||0}d=d}if(d.position==="relative"||d.position==="static"){k+=l.offsetTop;o+=l.offsetLeft}if(c.offset.supportsFixedPosition&&d.position==="fixed"){k+=Math.max(h.scrollTop,l.scrollTop);o+...
height:"1px",visibility:"hidden"});b.innerHTML="<div style='position:absolute;top:0;left:0;margin:0;border:5px solid #000;padding:0;width:1px;height:1px;'><div></div></div><table style='position:absolute;top:0;left:0;margin:0;border:5px solid #000;pa...
BusyBird
view release on metacpan or search on metacpan
t/testlib/StatusStorage/AEDelayed.pm view on Meta::CPAN
my ($self, @args) = @_;
my $method;
$method = (caller(1))[3];
$method =~ s/^.*:://g;
my $delay = $self->{delay_sec} || 0;
my $w; $w = AnyEvent->timer(
after => $delay,
cb => sub {
undef $w;
$self->{backend}->$method(@args);
}
C-Scan-Constants
view release on metacpan or search on metacpan
t/include/input.h view on Meta::CPAN
* In-kernel definitions.
*/
#include <linux/device.h>
#include <linux/fs.h>
#include <linux/timer.h>
#include <linux/mod_devicetable.h>
#define NBITS(x) (((x)/BITS_PER_LONG)+1)
#define BIT(x) (1UL<<((x)%BITS_PER_LONG))
#define LONG(x) ((x)/BITS_PER_LONG)
t/include/input.h view on Meta::CPAN
void *keycode;
struct ff_device *ff;
unsigned int repeat_key;
struct timer_list timer;
int state;
int sync;
C-sparse
view release on metacpan or search on metacpan
src/sparse-0.4.4/perl/t/include/block/aio.h view on Meta::CPAN
#include "qemu/typedefs.h"
#include "qemu-common.h"
#include "qemu/queue.h"
#include "qemu/event_notifier.h"
#include "qemu/thread.h"
#include "qemu/timer.h"
typedef struct BlockDriverAIOCB BlockDriverAIOCB;
typedef void BlockDriverCompletionFunc(void *opaque, int ret);
typedef struct AIOCBInfo {
src/sparse-0.4.4/perl/t/include/block/aio.h view on Meta::CPAN
GArray *pollfds;
/* Thread pool for performing work and receiving completion callbacks */
struct ThreadPool *thread_pool;
/* TimerLists for calling timers - one per clock type */
QEMUTimerListGroup tlg;
};
/**
* aio_context_new: Allocate a new AioContext.
src/sparse-0.4.4/perl/t/include/block/aio.h view on Meta::CPAN
IOHandler *io_write,
void *opaque);
#endif
/**
* aio_timer_new:
* @ctx: the aio context
* @type: the clock type
* @scale: the scale
* @cb: the callback to call on timer expiry
* @opaque: the opaque pointer to pass to the callback
*
* Allocate a new timer attached to the context @ctx.
* The function is responsible for memory allocation.
*
* The preferred interface is aio_timer_init. Use that
* unless you really need dynamic memory allocation.
*
* Returns: a pointer to the new timer
*/
static inline QEMUTimer *aio_timer_new(AioContext *ctx, QEMUClockType type,
int scale,
QEMUTimerCB *cb, void *opaque)
{
return timer_new_tl(ctx->tlg.tl[type], scale, cb, opaque);
}
/**
* aio_timer_init:
* @ctx: the aio context
* @ts: the timer
* @type: the clock type
* @scale: the scale
* @cb: the callback to call on timer expiry
* @opaque: the opaque pointer to pass to the callback
*
* Initialise a new timer attached to the context @ctx.
* The caller is responsible for memory allocation.
*/
static inline void aio_timer_init(AioContext *ctx,
QEMUTimer *ts, QEMUClockType type,
int scale,
QEMUTimerCB *cb, void *opaque)
{
timer_init(ts, ctx->tlg.tl[type], scale, cb, opaque);
}
#endif
CDS
view release on metacpan or search on metacpan
lib/CDS/C.pm view on Meta::CPAN
SV * obj = newSVpvn((char *) &ts, sizeof(struct timespec));
SvREADONLY_on(obj);
return obj;
}
static struct timespec * timerFromSV(SV * sv) {
if (! SvPOK(sv)) return NULL;
STRLEN length;
struct timespec * ts = (struct timespec *) SvPV(sv, length);
return length == sizeof(struct timespec) ? ts : NULL;
}
SV * performanceElapsed(SV * svThis) {
struct timespec * this = timerFromSV(svThis);
if (this == NULL) return &PL_sv_undef;
struct timespec ts;
clock_gettime(CLOCK_MONOTONIC, &ts);
time_t dsec = ts.tv_sec - this->tv_sec;
CGI-Application-Plugin-DevPopup
view release on metacpan or search on metacpan
lib/CGI/Application/Plugin/DevPopup/Timing.pm view on Meta::CPAN
my $start = [gettimeofday];
sub import
{
my $c = scalar caller;
$c->add_callback( 'devpopup_report', \&_timer_report );
$c->new_hook('devpopup_addtiming');
$c->add_callback( 'devpopup_addtiming', \&_add_time );
foreach my $stage (qw/ init prerun load_tmpl /)
{
$c->add_callback( $stage, sub { _add_time( shift(), $stage, @_ ) } );
}
goto &Exporter::import;
}
sub _timer_report
{
my $app = shift;
my $self = _new_or_self($app);
unshift @$self, { dec => 'start', tod => $start };
CGI-Application-Search
view release on metacpan or search on metacpan
templates/prototype_javascript.tmpl view on Meta::CPAN
this.onTimerEvent();
},
stop: function() {
this.updater.onComplete = undefined;
clearTimeout(this.timer);
(this.onComplete || Ajax.emptyFunction).apply(this, arguments);
},
updateComplete: function(request) {
if (this.options.decay) {
this.decay = (request.responseText == this.lastText ?
this.decay * this.options.decay : 1);
this.lastText = request.responseText;
}
this.timer = setTimeout(this.onTimerEvent.bind(this),
this.decay * this.frequency * 1000);
},
onTimerEvent: function() {
this.updater = new Ajax.Updater(this.container, this.url, this.options);
CGI-Inspect
view release on metacpan or search on metacpan
lib/CGI/Inspect/htdocs/js/jquery.js view on Meta::CPAN
* Sizzle CSS Selector Engine - v0.9.3
* Copyright 2009, The Dojo Foundation
* Released under the MIT, BSD, and GPL Licenses.
* More information: http://sizzlejs.com/
*/
(function(){var R=/((?:\((?:\([^()]+\)|[^()]+)+\)|\[(?:\[[^[\]]*\]|['"][^'"]*['"]|[^[\]'"]+)+\]|\\.|[^ >+~,(\[\\]+)+|[>+~])(\s*,\s*)?/g,L=0,H=Object.prototype.toString;var F=function(Y,U,ab,ac){ab=ab||[];U=U||document;if(U.nodeType!==1&&U.nodeType!==...
CGI-OptimalQuery
view release on metacpan or search on metacpan
lib/CGI/OptimalQuery/Resources/jquery.js view on Meta::CPAN
/*! jQuery v@1.8.0 jquery.com | jquery.org/license */
(function(a,b){function G(a){var b=F[a]={};return p.each(a.split(s),function(a,c){b[c]=!0}),b}function J(a,c,d){if(d===b&&a.nodeType===1){var e="data-"+c.replace(I,"-$1").toLowerCase();d=a.getAttribute(e);if(typeof d=="string"){try{d=d==="true"?!0:d=...
CGI-WML
view release on metacpan or search on metacpan
'select' => '55', # 0x37
'small' => '56', # 0x38
'strong' => '57', # 0x39
'UNUSED' => '58', # 0x3A
'template' => '59', # 0x3B
'timer' => '60', # 0x3C
'u' => '61', # 0x3D
'setvar' => '62', # 0x3E
'wml' => '63', # 0x3F
);
'newcontext="false"' => '34', # 0x22
'newcontext="true"' => '35', # 0x23
'onpick' => '36', # 0x24
'onenterbackward' => '37', # 0x25
'onenterforward' => '38', # 0x26
'ontimer' => '39', # 0x27
'optional="false"' => '40', # 0x28
'optional="true"' => '41', # 0x29
'path' => '42', # 0x2A
'NULL,' => '43', # 0x2B
'NULL,' => '44', # 0x2C
'type="help"' => '58', # 0x3A
'type="password"' => '59', # 0x3B
'type="onpick"' => '60', # 0x3C
'type="onenterbackward"' => '61', # 0x3D
'type="onenterforward"' => '62', # 0x3E
'type="ontimer"' => '63', # 0x3F
'NULL,' => '64', # 0x40
'NULL,' => '65', # 0x41
'NULL,' => '66', # 0x42
'NULL,' => '67', # 0x43
'NULL,' => '68', # 0x44
'middle' => '147', # 0x93
'nowrap' => '148', # 0x94
'onpick' => '149', # 0x95
'onenterbackward' => '150', # 0x96
'onenterforward' => '151', # 0x97
'ontimer' => '152', # 0x98
'options' => '153', # 0x99
'password' => '154', # 0x9A
'reset' => '155', # 0x9B
'NULL' => '156', # 0x9C
'text' => '157', # 0x9D
'input' => '1',
'noop' => '1',
'prev' => '1',
'img' => '1',
'meta' => '1',
'timer' => '1',
'setvar' => '1');
# HTML->WML conversion constants
# Ignore these HTML and iMode tags completely.
my %IGNORE_TAG = map {$_ => 1} qw(abbr acronym address applet area basefont
### Method: card
# make a complete WML card
####
sub card {
my ($self,@p) = &CGI::self_or_default(@_);
my ($id,$title,$content,$ontimer,$timer,$onenterforward,$onenterbackward,
$newcontext,$ordered,$class,$lang) =
rearrange([ID,TITLE,CONTENT,ONTIMER,TIMER,ONENTERFORWARD,ONENTERBACKWARD,NEWCONTEXT,ORDERED,CLASS,LANG],@p);
my @ret;
push(@ret,qq(\n<card id="$id"));
push(@ret,qq(title="$title")) if (defined $title);
push(@ret,qq(newcontext="$newcontext")) if (defined $newcontext);
push(@ret,qq(ontimer="$ontimer")) if (defined $ontimer);
push(@ret,qq(onenterforward="$onenterforward"))if(defined $onenterforward);
push(@ret,qq(onenterbackward="$onenterbackward"))if(defined $onenterbackward);
push(@ret,qq(xml:lang="$lang")) if (defined $lang);
push(@ret,qq(ordered="$ordered")) if (defined $ordered);
push(@ret,qq(class="$class")) if (defined $class);
push(@ret,qq(>));
push(@ret,qq($timer)) if (defined $timer);
push(@ret,qq( $content </card>)) if (defined $content);
return join (" ",@ret);
}
sub back {
&prev;
}
### Method: timer
# Make a WML timer element
####
sub timer {
my ($self,@p) = @_;
my ($name,$value) = rearrange([NAME,VALUE],@p);
return qq(<timer name="$name" value="$value"/>);
}
#### Method: end_wml
# End an WML document.
# Trivial method for completeness. Just returns "</wml>"
=over 2
=item B<card()>
Cards are created whole, by passing paramaters to the card() method, as
well as the card attributes, a timer may be added to the start of the
card.
$query->card(-id=>"card_id",
-title=>"First Card",
-ontimer=>"#next_card",
-timer=>$query->C<timer>(-name=>"timer1",-value=>"30"),
-newcontext=>"true",
-onenterforward=>"#somecard",
-onenterbackward=>"#othercard",
-content=>"<p>Hello WAP world</p>");
$content = $query->p("Hello WAP world");
$query->card(-id=>"card_id",
-title=>"First Card",
-ontimer=>"#next_card",
-timer=>$query->C<timer>(-name=>"timer1",-value=>"30"),
-newcontext=>"true",
-onenterforward=>"#somecard",
-onenterbackward=>"#othercard",
-content=>$content);
$query->template(-content=>$query->prev(-label=>"Go Back"));
=head2 TIMERS
A card timer is used with the card() method to trigger an action, the
function takes two arguments, the name of the timer and it's value in
milliseconds.
$query->timer(-name=>"mytimer",
-value=>"30");
=head2 GO BLOCKS
A E<lt>go block is created either as a single line
-emptyok=>"false");
=head2 ONEVENT
An B<onevent> element may contain one of 'go','prev','noop' or 'refresh'
and be of type 'onenterforward', 'onenterbackward' or 'ontimer'.
$query->onevent(-type=>"onenterforward",
-content=>qq(<refresh>
<setvar name="x" value="1"/>
</refresh>));
CGI-WebToolkit
view release on metacpan or search on metacpan
t/private/javascripts/prototype.js view on Meta::CPAN
this.registerCallback();
},
registerCallback: function() {
this.timer = setInterval(this.onTimerEvent.bind(this), this.frequency * 1000);
},
execute: function() {
this.callback(this);
},
stop: function() {
if (!this.timer) return;
clearInterval(this.timer);
this.timer = null;
},
onTimerEvent: function() {
if (!this.currentlyExecuting) {
try {
t/private/javascripts/prototype.js view on Meta::CPAN
this.onTimerEvent();
},
stop: function() {
this.updater.options.onComplete = undefined;
clearTimeout(this.timer);
(this.onComplete || Prototype.emptyFunction).apply(this, arguments);
},
updateComplete: function(response) {
if (this.options.decay) {
this.decay = (response.responseText == this.lastText ?
this.decay * this.options.decay : 1);
this.lastText = response.responseText;
}
this.timer = this.onTimerEvent.bind(this).delay(this.decay * this.frequency);
},
onTimerEvent: function() {
this.updater = new Ajax.Updater(this.container, this.url, this.options);
}
t/private/javascripts/prototype.js view on Meta::CPAN
(function() {
/* Support for the DOMContentLoaded event is based on work by Dan Webb,
Matthias Miller, Dean Edwards, John Resig, and Diego Perini. */
var timer;
function fireContentLoadedEvent() {
if (document.loaded) return;
if (timer) window.clearTimeout(timer);
document.loaded = true;
document.fire('dom:loaded');
}
function checkReadyState() {
t/private/javascripts/prototype.js view on Meta::CPAN
}
function pollDoScroll() {
try { document.documentElement.doScroll('left'); }
catch(e) {
timer = pollDoScroll.defer();
return;
}
fireContentLoadedEvent();
}
if (document.addEventListener) {
document.addEventListener('DOMContentLoaded', fireContentLoadedEvent, false);
} else {
document.observe('readystatechange', checkReadyState);
if (window == top)
timer = pollDoScroll.defer();
}
Event.observe(window, 'load', fireContentLoadedEvent);
})();
CGISession
view release on metacpan or search on metacpan
Session/CVS/Base/LDAPSession.pm view on Meta::CPAN
=item CGI::LDAPSession::auto_refresh_cookie($;$)
Accessor method. Normally the cookie will expire X seconds after it is created, where X is
specified by CGI::LDAPSession::cookie_expiration. Whenever the cookie is refreshed this
timer resets. Setting this variable to a non-zero value causes the cookie to be refreshed
every time that it is successfully verified.
=cut
sub auto_refresh_cookie($;$) { my $self=shift; @_ ? $self->{auto_refresh_cookie}=shift : $self->{auto_refresh_cookie}; }
CLI-Startup
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libb-keywords-perl", "B-Keywords", "1.09", "0", "0"
"libb-perlreq-perl", "rpm-build-perl", "0.74", "0", "1"
"libb-utils-perl", "B-Utils", "0.13", "0", "0"
"libbarcode-code128-perl", "Barcode-Code128", "2.01", "0", "1"
"libbenchmark-progressbar-perl", "Benchmark-ProgressBar", "0.00001", "0", "0"
"libbenchmark-timer-perl", "Benchmark-Timer", "0.7102", "0", "0"
"libbiblio-citation-parser-perl", "Biblio-Citation-Parser", "1.10", "0", "1"
"libbiblio-endnotestyle-perl", "Biblio-EndnoteStyle", "0.05", "0", "0"
"libbio-asn1-entrezgene-perl", "unknown", "1.091", "0", "0"
"libbio-primerdesigner-perl", "Bio-PrimerDesigner", "0.07", "0", "0"
"libbio-scf-perl", "Bio-SCF", "1.03", "1", "0"
Debian_CPANTS.txt view on Meta::CPAN
"libtemplate-plugin-number-format-perl", "Template-Plugin-Number-Format", "1.02", "0", "0"
"libtemplate-plugin-textile2-perl", "Template-Plugin-Textile2", "1.21", "0", "0"
"libtemplate-plugin-yaml-perl", "Template-Plugin-YAML", "1.23", "0", "0"
"libtemplate-provider-encoding-perl", "Template-Provider-Encoding", "0.10", "0", "0"
"libtemplate-provider-fromdata-perl", "Template-Provider-FromDATA", "0.10", "0", "0"
"libtemplate-timer-perl", "Template-Timer", "1.00", "1", "0"
"libtemplate-tiny-perl", "Template-Tiny", "0.11", "0", "0"
"libterm-encoding-perl", "Term-Encoding", "0.02", "0", "0"
"libterm-progressbar-perl", "Term-ProgressBar", "2.09", "0", "1"
"libterm-prompt-perl", "Term-Prompt", "1.04", "0", "0"
"libterm-query-perl", "Term-Query", "2.0", "0", "1"
COPS-Client
view release on metacpan or search on metacpan
examples/new_cops_test.pl view on Meta::CPAN
Service_Type => 'DOCSIS Service Class Name',
ServiceClassName => 'S_down'
]
);
my $timer= time();
$cops_client->rks_set (
[
PRKS_IPAddress => '192.168.50.2',
PRKS_Port => 2000,
PRKS_Flags => 1,
SRKS_IPAddress => 0,
SRKS_Port => 0,
SRKS_Flags => 0,
BCID_TimeStamp => $timer,
BCID_ElementID => '99999999',
BCID_TimeZone => '00000000',
BCID_EventCounter => 12347890
]
);
( run in 1.658 second using v1.01-cache-2.11-cpan-ad66724bd6a )