File Coverage

blib/lib/CLDR/Number/Constant.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 19 19 100.0


line stmt bran cond sub pod time code
1             package CLDR::Number::Constant;
2              
3 18     18   273 use v5.8.1;
  18         57  
4 18     18   95 use utf8;
  18         38  
  18         130  
5 18     18   414 use strict;
  18         35  
  18         383  
6 18     18   86 use warnings;
  18         29  
  18         579  
7 18     18   11968 use parent 'Exporter';
  18         5111  
  18         105  
8              
9             # This module does not have a publicly supported interface and may change in
10             # backward incompatible ways in the future.
11              
12             our $VERSION = '0.15';
13              
14             our @EXPORT_OK = qw( $N $M $P $C $Q );
15              
16             # private-use characters as placeholders
17             # $N: formatted number
18             # $M: minus sign
19             # $P: percent sign
20             # $C: currency sign
21             # $Q: escaped single quote
22              
23             our ($N, $M, $P, $C, $Q) = map { chr } 0xF8F0 .. 0xF8F4;
24              
25             1;