sub permits { 
    my ($self, $mask) = @_;
    return (($self->{perms} & $mask) =~ y/\0//c);
}