File Coverage

blib/lib/String/PodQuote.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	3	4	75.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	27	28	96.4

package String::PodQuote;

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

use 5.010001;
use strict;
use warnings;

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

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

    $text =~ s{
                  (<|^[=\x09\x20])
          }{
              if ($1 eq '<') {
                  'E'
              } else {
                  'E<' . ord($1) . '>'
              }
    }egmx;
    $text;
}

1;

# ABSTRACT: Quote special characters that might be interpreted by a POD parser

__END__