sub is_listed {
    my( $self, $source, $color, @lists ) = @_;
    croak ...
        if  $color !~ /^(black|white)\z/;
    $color .= "list";
    for my $list (  @lists  ) {
        next    # Let caller may pass in $parent even if empty
            if  ! $list;
        if(  $self->lookup($color,$list,$source)  ) {
            $self->verbose("Found $source on $list $color");
            if(  $color eq "blacklist"  ) {
                $self->increment_reject_count($source);
            }
        }
    }
}