strip interpunction from anchor text

gflohr · Dec 13, 2023 · 9cc2604 · 9cc2604
1 parent fd7a442
commit 9cc2604
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/lib/Qgoda/HTMLFilter/CleanUp.pm b/lib/Qgoda/HTMLFilter/CleanUp.pm
@@ -68,6 +68,17 @@ sub start {
 	return $chunk;
 }
 
+sub text {
+	my ($self, $chunk, %args) = @_;
+
+	my $interpunction = $self->{__interpunction};
+	if (length $interpunction) {
+		$chunk =~ s/[$interpunction]$//;
+	}
+
+	return $chunk;
+}
+
 sub end {
 	my ($self, $chunk, %args) = @_;