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 4     4   646335 use strict;
  4         23  
  4         112  
11 4     4   20 use warnings;
  4         20  
  4         548  
12              
13             # ABSTRACT: Perl naive XS character replacement as an alternate to substitute or transliterate
14              
15              
16             BEGIN {
17              
18 4     4   14 our $VERSION = '0.004'; # VERSION: generated by DZP::OurPkgVersion
19              
20 4         19 require XSLoader;
21 4         2069 XSLoader::load(__PACKAGE__);
22             }
23              
24             sub identity_map {
25 6     6 1 19026 my $MAP = [];
26 6         588 $MAP->[ $_ ] = chr($_) for 0..255;
27 6         140 return $MAP;
28             }
29              
30             1;
31              
32             __END__