File Coverage

blib/lib/Unicode/Precis/Utils.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 15 15 100.0


line stmt bran cond sub pod time code
1             #-*- perl -*-
2             #-*- coding: utf-8 -*-
3              
4             package Unicode::Precis::Utils;
5              
6 4     4   163238 use 5.008;
  4         37  
7 4     4   20 use strict;
  4         5  
  4         96  
8 4     4   23 use warnings;
  4         6  
  4         122  
9              
10 4     4   17 use base qw(Exporter);
  4         5  
  4         928  
11             our %EXPORT_TAGS =
12             ('all' => [qw(compareExactly decomposeWidth foldCase lowerCase mapSpace)]);
13             our @EXPORT_OK = @{$EXPORT_TAGS{'all'}};
14              
15             our $VERSION = '1.199_01';
16             our $XS_VERSION = $VERSION;
17             $VERSION = eval $VERSION; # see L
18              
19             require XSLoader;
20             XSLoader::load(__PACKAGE__, $XS_VERSION);
21              
22             1;
23             __END__