/usr/local/CPAN/dbMan/DBIx/dbMan/Extension/BenchmarkStart.pm

• package DBIx::dbMan::Extension::BenchmarkStart
  • IDENTIFICATION
  • preference
  • init
  • known_actions
  • handle_action
• EOF

package DBIx::dbMan::Extension::BenchmarkStart;

use strict;
use base 'DBIx::dbMan::Extension';

our $VERSION = '0.03';

1;

sub IDENTIFICATION { return "000001-000051-000003"; }

sub preference { return 99999; }

sub init {
	my $obj = shift;

	$obj->{hires} = 0;
	eval q{
				use Time::HiRes gettimeofday;
		};
	++$obj->{hires} unless $@;
}

sub known_actions { return [ qw/COMMAND/ ]; }

sub handle_action {
	my ($obj,%action) = @_;

	if ($action{action} eq 'COMMAND' and 
	  $obj->{-mempool}->get('benchmark') and
	  not $action{benchmark_starttime}) {
		if ($obj->{hires}) {
			eval q{
								$action{benchmark_starttime} = [ gettimeofday ];
						};
		} else {
			$action{benchmark_starttime} = time;
		}
	}

	$action{processed} = 1;
	return %action;
}