package Time::SinceStart;

use strict;
use Time::HiRes qw(gettimeofday);

require Exporter;

our @ISA         = qw(Exporter);
our @EXPORT      = qw(getTimeSinceStart);
our @EXPORT_OK   = qw(getTimeSinceStart);
our $VERSION     = 1.0;

my @pagestarttime = ();

sub BEGIN
{
	@pagestarttime = gettimeofday;
}

sub getTimeSinceStart
{
	my @pagestoptime = gettimeofday;
	
	my $seconds = (abs($pagestoptime[0]-$pagestarttime[0]));
	my $decimals = (abs($pagestoptime[1]-$pagestarttime[1]));
	
	return ($seconds, $decimals);
}

1;

##</code><code>##

null: Use of uninitialized value in subtraction (-) at /Library/Perl/Time/SinceStart.pm line 24.
null: Use of uninitialized value in subtraction (-) at /Library/Perl/Time/SinceStart.pm line 25.