File Coverage

blib/lib/WE_Frontend/Plugin/Benchmark.pm

Criterion	Covered	Total	%
statement	12	19	63.1
branch			n/a
condition	0	2	0.0
subroutine	4	6	66.6
pod	1	2	50.0
total	17	29	58.6

# -*- perl -*-

#
# $Id: Benchmark.pm,v 1.7 2004/10/27 13:25:30 eserte Exp $
# Author: Slaven Rezic
#
# Copyright (C) 2002 Slaven Rezic. All rights reserved.
# This package is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
# Mail: [e-mail]
# WWW:  http://www.rezic.de/eserte/
#

package WE_Frontend::Plugin::Benchmark;
use base qw(Template::Plugin);

use strict;
use vars qw($VERSION);
$VERSION = sprintf("%d.%02d", q$Revision: 1.7 $ =~ /(\d+)\.(\d+)/);

use Time::HiRes qw(gettimeofday tv_interval);

sub new {
    my ($class, $context, @params) = @_;
    bless {
	   _CONTEXT => $context,
	   _START => [gettimeofday],
	  }, $class;
}

sub stop {
    my $self = shift;
    my $arg = shift || "";
    $arg .= " " . tv_interval($self->{_START}, [gettimeofday]) . "s";
    warn "$arg\n";
    "";
}

1;

__END__