Select Code to Download

if( $user->permits( FOO ) )

if( $user->permits( FOO | BAR | BAZ ) )

package User;
...
...
    my ($self, $mask) = @_;
    return ($self->{perms} & $mask);
}

package FriedoBits; 

...
  [ 0x80000000, 0x00000000, 0x00000000, 0x00000000 ] );

1;

Benchmark: timing 100000 iterations of BigInt...
    BigInt: 188 wallclock secs 
...

Benchmark: timing 100000 iterations of FriedoBits...
FriedoBits:  3 wallclock secs ( 3.11 usr +  0.01 sys =  3.12 CPU) @ 32
+051.28/s (n=100000)