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   166 use v5.8.1;
  18         39  
4 18     18   75 use utf8;
  18         21  
  18         82  
5 18     18   301 use strict;
  18         18  
  18         275  
6 18     18   57 use warnings;
  18         16  
  18         474  
7 18     18   6303 use parent 'Exporter';
  18         4114  
  18         74  
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.19';
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;