Select Code to Download

use Benchmark qw(cmpthese);
use strict;
...
sub Die {
   return int( rand( shift ) + 1 );
}

Benchmark: timing 55000 iterations of FacedDieObjNotStored, FacedDieOb
+jStored, FacelessDieObj, PsuedoHashObj, pureDieObj, pureSub, purists.
+..
FacedDieObjNotStored:  6 wallclock secs ( 6.14 usr +  0.00 sys =  6.14
+ CPU) @ 8957.65/s (n=55000)
...
pureDieObj            10456/s          187%               24%         
+         17%      6%         --    -79%    -90%
pureSub               50459/s         1283%              498%         
+        463%     412%       383%      --    -50%
purists              100000/s         2642%             1085%         
+       1016%    915%       856%     98%      --

Benchmark: timing 55000 iterations of FacedDieObjNotStored, FacedDieOb
+jStored, 

...
pureSub               49107/s          254%              147%         
+        107%        84%        54%      --    -54%
purists              107843/s          678%              443%         
+        355%        304%       237%    120%      --