Hi all, We have a module that mocks time by doing: 
BEGIN {
  no warnings qw(redefine);
  *CORE::GLOBAL::time =\&MYPACKAGE::time;
}

[download]
Once our framework loads the module all code that calls time() is fooled. Well almost, and that's the problem. Some of our code seems to not be fooled and I'm not sure why. I expected that somehow a time function was being imported into the current package, but that doesn't seem to be true as shown by the following debugger snippet: 
  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_HEAR
+TBEAT_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

[download]
Why does "x time()" have such a different value than "x $time"?

The Queue::MySQLQ code uses the POSIX module. Could that be stomping on my CORE::GLOBAL::time assignment for the scope of the file? I'm at a loss here. Any pointers for debugging this further would be appreciated!

In reply to Where does time come from? CORE::GLOBAL:time no honored. by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.