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 );
' );