File Coverage

blib/lib/Char/Replace.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 17 17 100.0


line stmt bran cond sub pod time code
1             # Copyright (c) 2018, cPanel, LLC.
2             # All rights reserved.
3             # http://cpanel.net
4             #
5             # This is free software; you can redistribute it and/or modify it under the
6             # same terms as Perl itself. See L.
7              
8             package Char::Replace;
9              
10 3     3   360562 use strict;
  3         15  
  3         80  
11 3     3   12 use warnings;
  3         5  
  3         193  
12              
13             # ABSTRACT: Perl naive XS character replacement as an alternate to substitute or transliterate
14              
15              
16             BEGIN {
17              
18 3     3   10 our $VERSION = '0.003'; # VERSION: generated by DZP::OurPkgVersion
19              
20 3         11 require XSLoader;
21 3         1511 XSLoader::load(__PACKAGE__);
22             }
23              
24             sub identity_map {
25 2     2 1 10164 my $MAP = [];
26 2         177 $MAP->[ $_ ] = chr($_) for 0..255;
27 2         86 return $MAP;
28             }
29              
30             1;
31              
32             __END__