Dan Kogai wrote:
Dan the Encode Maintainer
P.S. I still need a little bit more time for $Encode::VERSION++. My
load average is too high. Someone interested in implementing 'use less
q(time)' ?
use less 'time', 1..2;
print time(); # 1044486
print scalar localtime; # Thu Feb 6 00:06:09 2003
sleep( 21 );
print scalar localtime; # Thu Feb 6 00:06:16 2003
less sleep, more time.. always trying to help ;)
=========================================================================
package less;
sub import {
@C = @_[1..$#_];
*CORE::GLOBAL::time = sub { $t = CORE::time; chop($t) for @C; $t };
*CORE::GLOBAL::sleep = sub { CORE::sleep(shift()/@C) };
}
--
Jos Boumans
How do I prove I am not crazy to people who are?
CPANPLUS http://cpanplus.sf.net
