ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/JSON-XS/eg/bench
(Generate patch)

Comparing JSON-XS/eg/bench (file contents):
Revision 1.1 by root, Thu Mar 22 21:13:58 2007 UTC vs.
Revision 1.2 by root, Fri Mar 23 10:47:05 2007 UTC

… …
43 43
44sub bench($) { 44sub bench($) {
45 my ($code) = @_; 45 my ($code) = @_;
46 46
47 my $perl = jsonToObj $json; 47 my $perl = jsonToObj $json;
48 my $count = 100; 48 my $count = 10;
49 my $times = 15; 49 my $times = 15;
50 50
51 my $cent = eval "sub { " . (join ";", ($code) x $count) . "}"; 51 my $cent = eval "sub { " . (join ";", ($code) x $count) . "}";
52 $cent->(); 52 $cent->();
53 53

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines