… | … | ||
---|---|---|---|
43 | 43 | ||
44 | sub bench($) { | 44 | sub 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 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |