File Coverage

blib/lib/CLDR/Number/Format/Decimal.pm
Criterion Covered Total %
statement 18 18 100.0
branch 2 2 100.0
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 27 27 100.0


line stmt bran cond sub pod time code
1             package CLDR::Number::Format::Decimal;
2              
3 13     13   189 use v5.8.1;
  13         45  
4 13     13   62 use utf8;
  13         26  
  13         131  
5 13     13   439 use Carp;
  13         26  
  13         1074  
6              
7 13     13   64 use Moo;
  13         25  
  13         93  
8 13     13   4727 use namespace::clean;
  13         19  
  13         130  
9              
10             our $VERSION = '0.16';
11              
12             with qw( CLDR::Number::Role::Format );
13              
14             has _pattern_type => (
15             is => 'ro',
16             default => 'decimal',
17             );
18              
19             sub BUILD {}
20              
21             sub format {
22 156     156 1 15936 my ($self, $num) = @_;
23              
24 156         486 $num = $self->_validate_number(format => $num);
25 156 100       329 return undef unless defined $num;
26              
27 155         451 return $self->_format_number($num);
28             }
29              
30             1;
31              
32             __END__