Changeset 2824

Timestamp:

06/22/10 19:55:09 (20 months ago)

Author:

karpet

Message:

add benchmarker

File:

• Search-Tools/trunk/example/profile-hiliter.pl (modified) (1 diff)

Search-Tools/trunk/example/profile-hiliter.pl

@@ -6 +6 @@
 use Search::Tools::XML;
 use File::Slurp;
-use Path::Class;
+use Benchmark qw(:all);
 
 my $buf     = read_file('t/docs/ascii.txt');
 my $query   = Search::Tools->parser->parse('thronger');
 my $hiliter = Search::Tools::HiLiter->new( query => $query, );
-my $count   = 0;
-while ( $count++ < 10000 ) {
-
-    my $lit = $hiliter->light($buf);
-
-}
+cmpthese(
+    1000,
+    {   'hilite' => sub {
+            my $lit = $hiliter->light($buf);
+        },
+    }
+);