From 1dee8e5f63eb2019ae3492931cd999593b63991d Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 31 Oct 2023 22:23:18 +0100
Subject: [PATCH] perl: optional line breaks in long code examples

Fit mobile screen widths without indiscriminate code breaks.
---
 perl.inc.pl | 7 ++++---
 perl.plp    | 4 +++-
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/perl.inc.pl b/perl.inc.pl
index 9f18c34..e26cbcd 100644
--- a/perl.inc.pl
+++ b/perl.inc.pl
@@ -1,6 +1,7 @@
 use utf8;
 use strict;
 
+my $wbr = "\N{ZERO WIDTH SPACE}";
 +{
 	v5.004 => {
 		release => '1997-05-15',
@@ -85,7 +86,7 @@ use strict;
 			['Memoize' => 'remember function results, trading space for time', 'memoize "stat"'],
 			['MIME::Base64' => 'base64 encoded strings as in email attachments'],
 			['Test::More' => 'modern framework for unit testing', 'is $got, $expected'],
-			['Time::HiRes' => 'high resolution timers', '$μs = [gettimeofday]; sleep .1; $elapsed = tv_interval $μs'],
+			['Time::HiRes' => 'high resolution timers', '$μs = [gettimeofday]; sleep .1;'.$wbr.' $elapsed = tv_interval $μs'],
 		],
 		release => '2002-07-18',
 		distro => {
@@ -123,9 +124,9 @@ use strict;
 		modules => [
 			[autodie => 'replace builtin functions to throw exceptions instead of returning failure', 'eval {open ...} or $@->matches("open") || die'],
 			# overloading
-			['IO::Compress::Zip' => 'various file compression standards', 'zip IO::Uncompress::Gunzip->new("test.gz") => "recompressed.zip"'],
+			['IO::Compress::Zip' => 'various file compression standards', 'zip IO::Uncompress::Gunzip->new("test.gz")'.$wbr.' => "recompressed.zip"'],
 			['Time::Piece' => 'timestamps as objects', 'localtime->year > 1900'],
-			['File::Fetch' => 'generic data retrieval/download', 'File::Fetch->new(uri => "http://localhost/")->fetch(to => \$slurp)'],
+			['File::Fetch' => 'generic data retrieval/download', 'File::Fetch->new(uri => "http://localhost/")'.$wbr.'->fetch(to => \$slurp)'],
 		],
 		release => '2007-12-18',
 		distro => {
diff --git a/perl.plp b/perl.plp
index 716a1eb..89b906e 100644
--- a/perl.plp
+++ b/perl.plp
@@ -132,7 +132,9 @@ sub featattrs ($attr) {
 	$title = $title ? sprintf ' <em class="ex">(%s)</em>', $title : '';
 
 	if (my $eg = $attr->{eg}) {
-		my $pre = sprintf ' <small>{<code>%s</code>}</small>', Entity($eg);
+		my $pre = Entity($eg);
+		$pre =~ s<\N{ZERO WIDTH SPACE}>{</code><wbr/><code>}g;
+		$pre = " <small>{<code>$pre</code>}</small>";
 		$title = $pre . $title;
 	}
 	return $title;
-- 
2.30.0