+sub generate_property_text {
+ my ($schema) = @_;
+ my $data = '';
+ foreach my $key (sort keys %$schema) {
+ my $d = $schema->{$key};
+ next if $d->{alias};
+ my $desc = $d->{description};
+ my $typetext = schema_get_type_text($d);
+ $desc = 'No description available' if !$desc;
+ $data .= "=item $key: $typetext\n\n$desc\n\n";
+ }
+ return $data;
+}
+
+# generate pod from JSON schema properties