perl: code example as feature attribute

diff --git a/perl.inc.pl b/perl.inc.pl
index 49e8eef362af0ec7c697a4af4dfd75826391b916..ba330baddc1bc671c1c70d843c39943362c8e449 100644 (file)
--- a/perl.inc.pl
+++ b/perl.inc.pl
@@ -59,7 +59,7 @@ use utf8;
        v5.8 => {
                new => [
                        [q"<code>no utf8</code>", 'full unicode support, <code>utf8</code> pragma only for script encoding', {name => 'utf8_data'}],
-                       [q"<code>binmode $fh, ':perlio'</code>", 'file handle behaviour altered by PerlIO layers', {name => 'perlio'}],
+                       [q"<code>use open</code>", 'file handle behaviour altered by PerlIO layers', {name => 'perlio', eg => 'binmode $fh, ":bytes"'}],
                        [q"<code>open $fh, '-|', @cmd</code>", 'open list to fork a command without spawning a shell'],
                        [q"<code>open $fh, '>', \$var</code>", 'perl scalars as virtual files'],
                        [q"<code>printf '%1$s', @args</code>", 'syntax to use parameters out of order'],

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;
 }