Changeset 2020

Show
Ignore:
Timestamp:
10/10/06 03:05:48
Author:
miyagawa
Message:

use cmpthese and added sample data output

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • XML-OPML-LibXML/trunk/eg/benchmark.pl

    r2019 r2020  
    33use lib "lib"; 
    44use warnings; 
    5 use Benchmark
     5use Benchmark qw(:all)
    66use FindBin; 
    77 
     
    1212my $path = "$FindBin::Bin/../t/samples/$file"; 
    1313 
    14 timethese 1000, { 
     14cmpthese 1000, { 
    1515    'XML::OPML' => \&xml_opml, 
    1616    'XML::OPML::LibXML' => \&xml_opml_libxml, 
     
    3333    $doc->walkdown(sub { my $text = $_[0]->text; die }); 
    3434} 
     35 
     36__DATA__ 
     37                             Rate XML::OPML XML::OPML::LibXML XML::OPML::LibXML walkdown 
     38XML::OPML                  85.9/s        --              -78%                       -84% 
     39XML::OPML::LibXML           389/s      353%                --                       -26% 
     40XML::OPML::LibXML walkdown  524/s      509%               35%                         --