File Coverage

blib/lib/String/SimpleEscape.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	22	22	100.0

package String::SimpleEscape;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2020-05-28'; # DATE
our $DIST = 'String-SimpleEscape'; # DIST
our $VERSION = '0.001'; # VERSION

use strict;
use warnings;

use Exporter 'import';
our @EXPORT_OK = qw(simple_escape_string simple_unescape_string);

my %escape = (
    "\012" => "\\n",
    "\t"   => "\\t",
    "\\"   => "\\\\",
    "\""   => "\\\"",
);

my %unescape = (
    "\\n"  => "\012",
    "\\t"  => "\t",
    "\\\\" => "\\",
    "\\\"" => "\"",
);

sub simple_escape_string {
    my $str = shift;
    $str =~ s/([\012\011\\"])/$escape{$1}/g;
    $str;
}
sub simple_unescape_string {
    my $str = shift;
    $str =~ s/(\\n|\\t|\\\\|\\")/$unescape{$1}/g;
    $str;
}

1;
# ABSTRACT: Simple string escaping & unescaping

__END__