sub validate_properties {
    my $properties = shift;
    for my $prop (@{$properties}) {
        if (is_supported($prop)) {
            $prop->{supported} = 1;
        } else {
            $prop->{supported} = 0;
        }
        return $properties;
    }
}