NAME

profile.pl - test how quickly XML::Dumper runs on your system

Results

Dumping Perl to XML

my $time = timeit( $count, ' my $perl = [ { fname => "Fred", lname => "Flintstone", residence => "Bedrock" }, { fname => "Barney", lname => "Rubble", residence => "Bedrock" } ]; my $dump = new XML::Dumper; my $xml = $dump->pl2xml( $perl ); ' );

Dumping XML to Perl;

my $time = timeit( $count, ' my $perl = [ { fname => "Fred", lname => "Flintstone", residence => "Bedrock" }, { fname => "Barney", lname => "Rubble", residence => "Bedrock" } ];

  my $dump = new XML::Dumper;
  my $xml = $dump->pl2xml( $perl );
  my $pl = $dump->xml2pl( $xml );
' );