Lines Matching defs:now
61 sub now {
67 memoize 'now',
80 $when{$_} = now($_);
87 # values will now expire at T=15, 21, 27
88 # it is now T=12
92 $again{$_} = now($_); # Should be the same as before, because of memoization
107 wait_until(18); # now(1) expires
108 print "not " unless close_enough(time, $again{1} = now(1));
115 print "not " unless now($_) == $again{$_};
119 wait_until(24); # now(2) expires
123 print "not " unless close_enough(time, $again{2} = now(2));
130 if (very_close(scalar(now($_)), $again{$_})) {