Select Code to Download

sub insertQuarter {
    my ($coin) = @_;
...
    initializeGame();
    startGame();
}

#!/usr/bin/perl

...
    'SubAssertNoOp'       => sub { eval { SubAssertNoOp($_)       } fo
+r (@nums) },    
    'OrAssertHandlerNoOp' => sub { eval { OrAssertHandlerNoOp($_) } fo
+r (@nums) },   
});

----------------------------------------------------------------------
+----------
Testing raw OR against sub
...
                      Rate       SubAssertNoOp OrAssertHandlerNoOp
SubAssertNoOp       1088/s                  --                -21%
OrAssertHandlerNoOp 1385/s                 27%                  --