profile.pl - test how quickly XML::Dumper runs on your system
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 $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 ); ' );