view release on metacpan or  search on metacpan

lib/Time/Decimal.pm  view on Meta::CPAN

=cut

my %delta = ('' => 100,
	     s => 1,
	     ds => .1,
	     cs => .01,
	     ms => .001,
	     'µs' => .000_001,
	     us => .000_001,
	     "\xb5s" => .000_001);	# Latin-[13579] µ
sub loop(&) {
    my $callback = $_[0];
    require Time::HiRes;
    my $last = '';
    while( 1 ) {
	my( $usec, $sec, $min, $h ) = Time::HiRes::time();
	my $orig = $usec;
	$sec = int $usec;
	$usec -= $sec;
	($sec, $min, $h) = localtime $sec;
	$sec = $h * 3600 + $min * 60 + $sec + $usec;