view _test/temp.pl @ 184:7525ea9a071a

IMPL::Web::View::TTLoader tests
author sergey
date Thu, 29 Mar 2012 01:54:20 +0400
parents 1f7a6d762394
children 4d0e1962161c
line wrap: on
line source

#!/usr/bin/perl
use strict;
use Time::HiRes qw(gettimeofday tv_interval);

sub func {
	1;
}

my $t0 = [gettimeofday()];

for(my $i = 0; $i < 1000000; $i++) {
	func(1);
}

print tv_interval($t0),"\n";

my $fn = sub { 1; };

$t0 = [gettimeofday()];

for(my $i = 0; $i < 1000000; $i++) {
	&$fn(1);
}

print tv_interval($t0),"\n";

sub dummy() { 0; }

$t0 = [gettimeofday()];

for(my $i = 0; $i < 1000000; $i++) {
	dummy;
}

print tv_interval($t0),"\n";

$t0 = [gettimeofday()];

for(my $i = 0; $i < 1000000; $i++) {
	1;
}

print tv_interval($t0),"\n";