Select Code to Download

    vec( $vector, $bit, 1 ) ||= 1;

use strict;
use warnings;
...

    return 1;
}

C:\test>903727.pl
         Rate inline    vec
...
inline 3.10/s     --   -60%
vec    7.77/s   151%     --