in reply to Re^3: Escaping special characters for POD output
in thread Escaping special characters for POD output

Should have known I was missing things.

The module doesn't escape «>» which is significant when generating the content of tags. 

my $s = '$a <=> $b';
my $pod = "C<" . pod_quote($s) . ">";  # Fails

[download]

The modules doesn't escape «/» and «"» which are significant when generating the content of L<> tags. 

my $s = 'Module for This/That';
my $pod = "L<" . pod_quote($s) . "|Some::Module>";  # Fails

[download]

Creating a hash with the replacements should be faster than what you're using now.

Note that «<» only requires escaping when preceded by an ASCII capital letter.

Replies are listed 'Best First'.
Re^5: Escaping special characters for POD output
by perlancar (Hermit) on Dec 16, 2019 at 02:48 UTC
    Thanks a lot! Didn't realize one might use pod_quote() to insert text inside a POD link. I've incorporated all your suggestions and uploaded version 0.002.
[reply]

      ow, the leading look-behind will slow things down a lot. 

      my %transforms = (
    ( map { "$_<" => "$_E<lt>" } 'A'..'Z' ),
    ">"  => "E<gt>",
    " "  => "E<32>",
    "\t" => "E<9>",
    "="  => "E<61>",
    "/"  => "E<sol>",
    "|"  => "E<verbar>",
);

 
s{ ( [A-Z]< | [>/|] | ^[ \t=] ) }{$transforms{$1}}g;

      [download]
[reply]
[d/l]
        My casual testing confirms slowdown but not that significantly. Can you provide some texts for benchmarking?
[reply]

In Section Seekers of Perl Wisdom