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;
return $data;
}
-# generta epop from JSON schema properties
+# generate pod from JSON schema properties
sub dump_properties {
my ($properties) = @_;