perl: code example as feature attribute

[sheet.git] / perl.plp

diff --git a/perl.plp b/perl.plp
index de4637d01eacf6b20ccf19bb734a01b49d1e3cfc..49694fc67abbb87d34d4b223f1f27111976c00f2 100644 (file)
--- a/perl.plp
+++ b/perl.plp
@@ -91,9 +91,9 @@ for my $vernum (reverse sort keys %{$info}) {
        }
        if (my $mods = $verrow->{modules}) {
                for (@{$mods}) {
-                       my ($name, $desc, $eg) = @{$_};
+                       my ($name, $desc, $attr) = @{$_};
                        my $ref = lc $name =~ s/::/_/gr;
-                       $desc .= sprintf ' <small>{<code>%s</code>}</small>', Entity($_) for $eg // ();
+                       $desc .= featattrs($attr);
                        printf '<dt id="%s"><code>use %s</code>', $ref, $name;
                        say '<dd>', $desc;
                }
@@ -104,6 +104,8 @@ for my $vernum (reverse sort keys %{$info}) {
 }
 
 sub featattrs ($attr) {
+       $attr or return '';
+       ref $attr or $attr = {eg => $attr};
        my $title;
        if (defined $attr->{experimental}) {
                $title = 'experimental';
@@ -126,6 +128,11 @@ sub featattrs ($attr) {
                $title = join ', ', $prefix, $title // ();
                $attr->{name} //= $attr->{feature};
        }
-       return sprintf ' <em class="ex">(%s)</em>', $title if $title;
-       return '';
+       $title = $title ? sprintf ' <em class="ex">(%s)</em>', $title : '';
+
+       if (my $eg = $attr->{eg}) {
+               my $pre = sprintf ' <small>{<code>%s</code>}</small>', Entity($eg);
+               $title = $pre . $title;
+       }
+       return $title;
 }