BEGIN { no warnings qw(redefine); *CORE::GLOBAL::time =\&MYPACKAGE::time; } #### DB<2> c 500 Queue::MySQLQ::dequeue(/Users/foo/lib/Queue/MySQLQ.pm:500): 500: my $time = time(); DB<3> n Queue::MySQLQ::dequeue(/Users/foo/lib/Queue/MySQLQ.pm:501): 501: my $expire_time = $time + $WORKER_HEARTBEAT_FAILURE; DB<3> x $time 0 1238102461 DB<4> x time() 0 1238102486 DB<5> x __PACKAGE__ 0 'Queue::MySQLQ' DB<6> S Queue::MySQLQ Queue::MySQLQ::BEGIN Queue::MySQLQ::dequeue Queue::MySQLQ::enqueue Queue::MySQLQ::install Queue::MySQLQ::new Queue::MySQLQ::reap_queue Queue::MySQLQ::subscribe Queue::MySQLQ::subscribe_all Queue::MySQLQ::subscribe_all_generators