X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/7d20f0f1160c15c1b52ba92dc86441766040c6ec..651e4bfa3cc349373e8f9adfd068ff6a6476b153:/perl.plp
diff --git a/perl.plp b/perl.plp
index de4637d..49694fc 100644
--- 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 ' {%s
}', Entity($_) for $eg // ();
+ $desc .= featattrs($attr);
printf '
use %s
', $ref, $name;
say '%s
}', Entity($eg);
+ $title = $pre . $title;
+ }
+ return $title;
}