File Coverage

blib/lib/String/PodQuote.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	23	24	95.8

package String::PodQuote;

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

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

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

our %transforms = (
    "<"  => "E",
    ">"  => "E",
    " "  => "E<32>",
    "\t" => "E<9>",
    "="  => "E<61>",
    "/"  => "E",
    "|"  => "E",
);

sub pod_escape {
    my $opts = ref $_[0] eq 'HASH' ? shift : {};
    my $text = shift;

    $text =~ s{
                  ((?<=[A-Z])<|>|/|\||^[=\x09\x20])
          }{
              $transforms{$1}
    }egmx;
    $text;
}

*pod_quote = \&pod_escape;

1;

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

__END__