File Coverage

blib/lib/App/ansiecho/Util.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch	2	4	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	19	23	82.6

package App::ansiecho;
use v5.14;
use warnings;

use charnames ':full';

sub decode_argv {
    map {
	utf8::is_utf8($_) ? $_ : decode('utf8', $_);
    }
    @_;
}

sub safe_backslash {
    $_[0] =~ s{
	( \\ x\{[0-9a-f]+\}
	| \\ x[0-9a-f]{2}
	| \\ N\{[\ \w]+\}
	| \\ N\{U\+[0-9a-f]+\}
	| \\ c.
	| \\ o\{\d+\}
	| \\ \d\d\d
	| \\ .
        )
    }{ eval qq["$1"] or die "$1 : string error.\n"}xiger;
}

1;