File Coverage

blib/lib/Char/Replace.pm

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

# Copyright (c) 2018, cPanel, LLC.
# All rights reserved.
# http://cpanel.net
#
# This is free software; you can redistribute it and/or modify it under the
# same terms as Perl itself. See L.

package Char::Replace;

use strict;
use warnings;

# ABSTRACT: Perl naive XS character replacement as an alternate to substitute or transliterate


BEGIN {

    our $VERSION = '0.007'; # VERSION: generated by DZP::OurPkgVersion

    require XSLoader;
    XSLoader::load(__PACKAGE__);
}

sub identity_map {
    my $MAP = [];
    $MAP->[ $_ ] = chr($_) for 0..255;
    return $MAP;
}

sub build_map {
    my (%pairs) = @_;
    my $MAP = identity_map();
    for my $from ( keys %pairs ) {
        length($from) == 1
            or do { require Carp; Carp::croak("build_map: key must be a single character, got '$from'") };
        $MAP->[ ord($from) ] = $pairs{$from};
    }
    return $MAP;
}

1;

__END__