Slaven Rezić > WE_Framework-0.097_03 > WE_Frontend::Plugin::Benchmark

Download:
WE_Framework-0.097_03.tar.gz

Dependencies

Annotate this POD

Module Version: 1.07   Source  

NAME ^

WE_Frontend::Plugin::Benchmark - TT plugin for making benchmarks

SYNOPSIS ^

    [% USE b = Benchmark %]
    ...
    [% b.stop(tag) %]

DESCRIPTION ^

This plugin may be used to benchmark a code block in a TT template. The start of the benchmarked block should be marked with:

    [% USE b = Benchmark %]

and the end with

    [% b.stop(tag) %]

The (real, not CPU) run time is written to STDERR. tag is an arbitrary string which may be used to identify a benchmarked block.

ALTERNATIVES ^

On CPAN, the module Template::Timer exists.

This module is based on the following suggestion by Gavin Estey (see the TT mailing list):

You can use a Template::Context subclass to insert timing comments in the HTML.

Just overried what class is used:

    $Template::Config::CONTEXT = 'TimingContext';

    package TimingContext;
    use base qw( Template::Context );
    use Time::HiRes qw( gettimeofday tv_interval );
    foreach my $sub (qw( process include )) {
      my $super = __PACKAGE__->can("SUPER::$sub") or die;
      *$sub = sub {
        my $self     = shift;
        my $template = ref $_[0] ? $_[0]->name : $_[0];
        my $start    = [gettimeofday];
        my $data     = $super->($self, @_);
        my $elapsed  = tv_interval($start);
        return "<!-- START: $template -->\n$data\n<!-- END: $template ($elapsed seconds) -->";
      };
    }
    1;

AUTHOR ^

Slaven Rezic <slaven@rezic.de>

COPYRIGHT ^

Copyright (c) 2002 Slaven Rezic. All rights reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO ^

Time::HiRes.

syntax highlighting: