File Coverage

blib/lib/Time/SZTime.pm

Criterion	Covered	Total	%
statement	9	19	47.3
branch			n/a
condition			n/a
subroutine	3	6	50.0
pod	0	3	0.0
total	12	28	42.8

# $Id: SZTime.pm,v 1.7 2002/08/14 17:15:58 Vutral Exp $
package Time::SZTime;

## See POD after __END__
use strict;
use Time::HiRes;
our ($VERSION, @ISA, @EXPORT);
# AU Code: use CPAN::Shell;

use Exporter ();

$VERSION = "0.14";

@ISA = qw(Exporter);
@EXPORT = qw(&SZTime);

# AU Code: my $Object = CPAN::Shell->expand('Module','Time::SZTime'); $Object->install;

sub SZTime {
    my $time = Time::HiRes::time;
    $time *= 1000; $time = $time - 504934930483.2;
    $time = int($time);
    return $time;
}

sub SZTime::log {
    my $time = Time::SZTime::SZTime();
    return log($time);
}

sub SZTime::log10 {
    my $time = Time::SZTime::SZTime();
    $time = log($time)/log(10);
    return $time;
}

1;

__END__