File Coverage

blib/lib/String/PodQuote.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	20	20	100.0

package String::PodQuote;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2019-12-17'; # DATE
our $DIST = 'String-PodQuote'; # DIST
our $VERSION = '0.003'; # VERSION

use 5.010001;
use strict 'subs', 'vars';
use warnings;

use Exporter qw(import);
our @EXPORT_OK = qw(pod_escape pod_quote);

our %transforms = (
    ( map { ("$_<" => "${_}E") } 'A'..'Z' ),
    ">"  => "E",
    " "  => "E<32>",
    "\t" => "E<9>",
    "="  => "E<61>",
    "/"  => "E",
    "|"  => "E",
);

sub pod_escape {
    my $text = shift;

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

*pod_quote = \&pod_escape;

1;

# ABSTRACT: Escape/quote special characters that might be interpreted by a POD parser

__END__