Mercurial > pub > Impl

diff _test/temp.pl @ 194:4d0e1962161c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replaced tabs with spaces IMPL::Web::View - fixed document model, new features (control classes, document constructor parameters)
author cin
date Tue, 10 Apr 2012 20:08:29 +0400
parents 1f7a6d762394
children 6b1dda998839
line wrap: on
line diff
--- a/_test/temp.pl	Tue Apr 10 08:13:22 2012 +0400
+++ b/_test/temp.pl	Tue Apr 10 20:08:29 2012 +0400
@@ -3,13 +3,13 @@
 use Time::HiRes qw(gettimeofday tv_interval);
 
 sub func {
-	1;
+    1;
 }
 
 my $t0 = [gettimeofday()];
 
 for(my $i = 0; $i < 1000000; $i++) {
-	func(1);
+    func(1);
 }
 
 print tv_interval($t0),"\n";
@@ -19,7 +19,7 @@
 $t0 = [gettimeofday()];
 
 for(my $i = 0; $i < 1000000; $i++) {
-	&$fn(1);
+    &$fn(1);
 }
 
 print tv_interval($t0),"\n";
@@ -29,7 +29,7 @@
 $t0 = [gettimeofday()];
 
 for(my $i = 0; $i < 1000000; $i++) {
-	dummy;
+    dummy;
 }
 
 print tv_interval($t0),"\n";
@@ -37,7 +37,7 @@
 $t0 = [gettimeofday()];
 
 for(my $i = 0; $i < 1000000; $i++) {
-	1;
+    1;
 }
 
 print tv_interval($t0),"\n";