# Blosxom Plugin: gentime
# Author(s): Kyo Nagashima <kyo@hail2u.net>
# Version: 2004-08-28
# Blosxom Home/Docs/Licensing: http://www.blosxom.com/

package gentime;

use strict;
use vars qw($seconds);

# --- Configurable variables -----------

my $format = '%.3f';

# --- Plug-in package variables --------

my($start, $end) = (0, 0);

# --------------------------------------

use Time::HiRes;

sub start {
  $start = Time::HiRes::time;

  return 1;
}

sub foot {
  $end = Time::HiRes::time;
  $seconds = sprintf($format, $end - $start);

  return 1;
}

1;