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   266 use v5.8.1;
  18         57  
4 18     18   87 use utf8;
  18         33  
  18         134  
5 18     18   387 use strict;
  18         33  
  18         400  
6 18     18   85 use warnings;
  18         31  
  18         571  
7 18     18   11690 use parent 'Exporter';
  18         5031  
  18         98  
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.16';
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;