view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

####################
## initialization ##
####################

my $timer = times;

use_ok('Class::Tables');

{
    package MySubclass;

test.pl  view on Meta::CPAN

    0,
    "subclass overrides methods" );

## done!

$timer = times - $timer;
diag "SUMMARY: $Class::Tables::SQL_QUERIES queries, ${timer}s (using $driver)";

#############
## cleanup ##
#############

 view release on metacpan or  search on metacpan

lib/Clio/ProcessManager.pm  view on Meta::CPAN

    is => 'ro',
    init_arg => undef,
    lazy => 1,
    default => sub {
        my $self = shift;
        AnyEvent->timer(
            after    => 2,
            interval => 1,
            cb       => sub {
                $self->_idle_processes_maintenance();
            },

lib/Clio/ProcessManager.pm  view on Meta::CPAN

    my $cv = AnyEvent->condvar;
    $cv->begin;
    for ( 1 .. $number ) {
        $cv->begin;
        my $s; $s = AnyEvent->timer(
            after => 0,
            cb => sub {
                undef $s;
                $self->create_process( $cmd )->start;
                $cv->end;

 view release on metacpan or  search on metacpan

lib/CljPerl.pm  view on Meta::CPAN

	  (file#>> f "aaa")))
	
	(file#open "<t.txt" (fn [f]
	  (println (perl->clj (file#<< f)))))

An advanced example which creates a timer with AnyEvent.

	(. require AnyEvent)

	(def cv (->AnyEvent condvar))
	
	(def count 0)
	
	(def t (->AnyEvent timer
	  {:after 1
	   :interval 1
	   :cb (fn [ & args]
	         (println count)
	         (set! count (+ count 1))

 view release on metacpan or  search on metacpan

modules/CommonMark/src/bench.h  view on Meta::CPAN

#ifdef TIMER
float _cmark_start_time;
float _cmark_end_time;
float _cmark_save_time;

#define start_timer() \
	_cmark_save_time = _cmark_start_time; \
	_cmark_start_time = (float)clock()/CLOCKS_PER_SEC

#define end_timer(M) \
	_cmark_end_time = (float)clock()/CLOCKS_PER_SEC; \
	fprintf(stderr, "[TIME] (%s:%d) %4.f ns " M "\n", __FILE__, \
		__LINE__, (_cmark_end_time - _cmark_start_time) * 1000000); \
	_cmark_start_time = _cmark_save_time;

#else
#define start_timer()
#define end_timer(M)
#endif

#endif

 view release on metacpan or  search on metacpan

lib/Cluster/Init/Daemon.pm  view on Meta::CPAN

  {
    debug "halting $group";
    $self->{groups}{$group}->halt;
  }
  $data->{msg}="all groups halting";
  $self->timer(HALTTIME,{at=>time+5},$data);
  return (HALTED,$data);
}

sub putres
{