# $phash: json schema property hash
# $format: 'asciidoc' or 'pod'
my $get_property_description = sub {
# $phash: json schema property hash
# $format: 'asciidoc' or 'pod'
my $get_property_description = sub {
- my ($k, $display_name, $phash, $format, $hidepw) = @_;
+ my ($name, $display_name, $phash, $format, $hidepw) = @_;
- $opts .= &$get_property_description($k, "-$base", $prop->{$k}, $format, $hidepw);
+ $opts .= &$get_property_description($base, "-$base", $prop->{$k}, $format, $hidepw);
- $raw .= &$get_property_description($k, undef, $phash, $format, 0);
+ $raw .= &$get_property_description($base, undef, $phash, $format, 0);