my ($key,$value) = split /\s*:\s*/,$include,2;
next unless defined $value;
push @{$include{$key}}, split /\s*,\s*/, $value;
}
for my $exclude (make_list($param{exclude})) {
my ($key,$value) = split /\s*:\s*/,$include,2;
next unless defined $value;
push @{$include{$key}}, split /\s*,\s*/, $value;
}
for my $exclude (make_list($param{exclude})) {
my ($key,$value) = split /\s*:\s*/,$exclude,2;
next unless defined $value;
push @{$exclude{$key}}, split /\s*,\s*/, $value;
my ($key,$value) = split /\s*:\s*/,$exclude,2;
next unless defined $value;
push @{$exclude{$key}}, split /\s*,\s*/, $value;