view _test/temp.pl @ 173:aaab45153411

minor bugfixes
author sourcer
date Wed, 14 Sep 2011 18:59:01 +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";