my (@optional, @required);
foreach my $key (sort keys %$schema) {
my $entry = $schema->{$key};
+ next if $entry->{alias};
next if !$entry->{format_description} &&
!$entry->{typetext} &&
!$entry->{enum} &&
if ($phash->{typetext}) {
return $phash->{typetext};
+ } elsif ($phash->{format_description}) {
+ return "<$phash->{format_description}>";
} elsif ($phash->{enum}) {
return "(" . join(' | ', sort @{$phash->{enum}}) . ")";
} elsif ($phash->{pattern}) {